Dim valeur1 As Interger 'déclare la variable valeur1
Dim valeur2 As Interger 'déclare la variable valeur2
Dim valeur3 As Interger 'déclare la variable valeur3
Dim valeur4 As Interger 'déclare la variable valeur4
Dim valeur5 As Interger 'déclare la variable valeur5
Dim tot As Integer 'déclare la variable tot
valeur1 = CInt(TextBox1.Value) 'convertit la valeur de la TextBox1 en nombre Entier
valeur2 = CInt(TextBox2.Value) 'convertit la valeur de la TextBox2 en nombre Entier
valeur3 = CInt(TextBox3.Value) 'convertit la valeur de la TextBox3 en nombre Entier
valeur4 = CInt(TextBox4.Value) 'convertit la valeur de la TextBox4 en nombre Entier
valeur5 = CInt(TextBox5.Value) 'convertit la valeur de la TextBox5 en nombre Entier
tot=valeur1+valeur2+valeur3+valeur4+valeur5