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
    Dim row As Integer
    row = Cells(6, 4)
' On récupère les valeurs depuis nos cellules
    age = Cells(row, 2)
    prenom = Range("A" & row)
    ddn = Range("C" & row)
    isPremium = Range("D" & row)
' On affiche la popup
    MsgBox prenom & " à " & age & " ans. Il est né le " & ddn & " premium : " & isPremium
End Sub