Sub Variables2()
' On déclare 4 variables de type Int, String, Date et Bool
    Dim age As Integer, prenom As String, ddn As Date, isPremium As Boolean
' On récupère les valeurs depuis nos cellules
    age = CInt(Range("B1").Value)
    prenom = Range("A1").Value
    ddn = Range("C1").Value
    isPremium = CBool(Range("D1").Value)
    MsgBox prenom & " à " & age & " ans. Il est né le " & ddn & " premium : " & isPremium
End Sub