Sub tuto5()
Dim n As Integer, o As Integer
n = InputBox("Valeur 1")
o = InputBox("Valeur 2")
Total = n + o
Moyenne = (n + o) / 2
vReponse = MsgBox("Totaux des Valeurs 1 et 2 =" & Total, vbInformation, "REPONSE")
vReponse1 = MsgBox("Totaux des Valeurs 1 et 2 =" & Moyenne, vbInformation, "REPONSE")
End Sub