Private Sub CommandButton2_Click()
'
Dim Ligne As Long
'
With Sheets("feuille1")
Ligne = .Range("B65536").End(xlUp).Row + 1
.Cells(Ligne, 2) = IIf(Me.ComboBox1.Value = "", "0", Me.ComboBox1.Value)
.Cells(Ligne, 3) = IIf(Me.TextBox2.Value = "", "0", Me.TextBox2.Value)
.Cells(Ligne, 4) = IIf(Me.TextBox3.Value = "", "0", Me.TextBox3.Value)
.Cells(Ligne, 5) = IIf(Me.TextBox4.Value = "", "0", Me.TextBox4.Value)
.Cells(Ligne, 6) = IIf(Me.TextBox5.Value = "", "0", Me.TextBox5.Value)
.Cells(Ligne, 7) = IIf(Me.TextBox6.Value = "", "0", Me.TextBox6.Value)
.Cells(Ligne, 8) = IIf(Me.TextBox7.Value = "", "0", Me.TextBox7.Value)
.Cells(Ligne, 9) = IIf(Me.TextBox8.Value = "", "0", Me.TextBox8.Value)
.Cells(Ligne, 10) = IIf(Me.TextBox9.Value = "", "0", Me.TextBox9.Value)
End With
ComboBox1.Value = ""
For i = 2 To 9
Me.Controls("TEXTBOX" & i) = ""
Next
ListBox1.Clear
CommandButton13.Visible = False
End Sub