Private Sub CommandButton1_Click()
Dim derligne As Single
derligne = Sheets(1).Range("A65000").End(xlUp).Row
With Sheets(1)
.Cells(derligne + 1, 4).Value = TextBox1.Value
.Cells(derligne + 1, 5).Value = TextBox2.Value
.Cells(derligne + 1, 6).Value = TextBox3.Value
.Cells(derligne + 1, 7).Value = TextBox4.Value
.Cells(derligne + 1, 8).Value = TextBox5.Value
.Cells(derligne + 1, 9).Value = TextBox6.Value
.Cells(derligne + 1, 10).Value = TextBox7.Value
.Cells(derligne + 1, 11).Value = TextBox8.Value
[COLOR="Red"] .Range(.Cells(derligne, 1), .Cells(derligne + 1, 3)).FillDown
.Range(.Cells(derligne, 12), .Cells(derligne + 1, 17)).FillDown[/COLOR]
End With
UserForm1.Hide
End Sub