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