Private Sub CommandButton1_Click()
Dim A As Long
A = CDate(Me.TextBox8.Value)
With Feuil7
derlign = .Range("a65536").End(xlUp).Row + 1
.Cells(derlign, 2).Value = ComboBox1
.Cells(derlign, 3).Value = TextBox2
.Cells(derlign, 4).Value = TextBox3
.Cells(derlign, 7).Value = TextBox5
.Cells(derlign, 6).Value = TextBox4
.Cells(derlign, 5).Value = TextBox6
.Cells(derlign, 8).Value = ListBox1
.Cells(derlign, 1).Value = A
.Cells(derlign, 1).NumberFormat = "dd/mm/yy"
.Range("A5").Select
End With
UserForm2.Show
End Sub