Private Sub CommandButton1_Click() 'Valider
Dim Derligne As Integer
With Sheets(3)
Derligne = .Range("A65000").End(xlUp).Row
.Cells(Derligne + 1, 1) = Derligne - 1
.Cells(Derligne + 1, 2) = ComboBox2.Value
.Cells(Derligne + 1, 3) = ComboBox3.Value
.Cells(Derligne + 1, 10) = ComboBox4.Value
.Cells(Derligne + 1, 5) = ComboBox5.Value
.Cells(Derligne + 1, 6) = ComboBox6.Value
.Cells(Derligne + 1, 7) = TextBox3.Value
.Cells(Derligne + 1, 9) = ComboBox7.Value
.Cells(Derligne + 1, 4) = TextBox4.Value
.Cells(Derligne + 1, 12) = TextBox6.Value
If TextBox1.Value <> "" Then .Cells(Derligne + 1, 8) = CDate(TextBox1.Value)
If TextBox5.Value <> "" Then .Cells(Derligne + 1, 11) = CDate(TextBox5.Value)
.Cells(Derligne + 1, 1).Resize(TextBox3.Value, 12).FillDown
End With
Unload Me
End Sub