Private Sub AJOUTER_Click()
Dim i As Long
i = Feuil2.Cells(65536, 1).End(xlUp).Row + 1
j = Feuil2.Cells(65536, 2).End(xlUp).Row + 1
Feuil2.Cells(i, 1) = TextBox1.Value
Feuil2.Cells(j, 2) = TextBox2.Value
TextBox1 = "": TextBox2 = ""
Unload Me
End Sub
Private Sub TOTAL_Click()
Dim TOTAL As Integer
TOTAL = Feuil2.Cells(1, 5)
MsgBox TOTAL & " "
Unload Me
End Sub