Public flag As Boolean
Sub cbAddition_Click()
Dim dl&
With Sheets("addition")
dl = .Cells(Rows.Count, "a").End(xlUp).Row
TextBox3 = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
End With
flag = True
End Sub
Private Sub cbSoustraction_Click()
Dim dl&
With Sheets("soustration")
dl = .Cells(Rows.Count, "a").End(xlUp).Row
TextBox3 = CDbl(TextBox1.Value) - CDbl(TextBox2.Value)
End With
flag = False
End Sub
Private Sub CommandButton1_Click()
With Sheets(IIf(flag, "addition", "soustration"))
dl = .Cells(Rows.Count, "a").End(xlUp).Row
.Cells(dl + 1, "a") = dl
.Cells(dl + 1, "b") = TextBox1 * 1
.Cells(dl + 1, "c") = TextBox2 * 1
.Cells(dl + 1, "d") = TextBox3 * 1
End With
End Sub