Private Sub CommandButton2_Click()
With Sheets("BASE")
Ligne = IIf(Ligne = 0, .Range("B65536").End(xlUp).Row + 1, Ligne)
.Cells(Ligne, 2) = (Me.TextBox10.Value)
.Cells(Ligne, 3) = (Me.TextBox2.Value)
.Cells(Ligne, 4) = (Me.TextBox3.Value)
.Cells(Ligne, 5) = (Cells(Ligne, 5) + Me.TextBox4.Value)
.Cells(Ligne, 6) = (Cells(Ligne, 6) + Me.TextBox5.Value)
.Cells(Ligne, 7) = (Cells(Ligne, 7) + Me.TextBox6.Value)
.Cells(Ligne, 8) = (Cells(Ligne, 8) + Me.TextBox7.Value)
.Cells(Ligne, 9) = (Cells(Ligne, 9) + Me.TextBox8.Value)
.Cells(Ligne, 10) = (Cells(Ligne, 10) + Me.TextBox9.Value)
End With
ListBox1.Clear
CommandButton13.Visible = False
End Sub