Sub Variables()
    ' Déclaration d'une variable de type nombre entier
    Dim monAge As Integer
    ' On associe la valeur 30 à la var monAge
    monAge = 35
    monAge = 30
    monAge = 10 * 5
    monAge = monAge - 20
    ' On affiche la valeur de age dans A5
    Range("A5") = monAge
    ' Afficher une popup
    MsgBox "L'age est : " & monAge
End Sub