Private Sub CommandButton1_Click()
Dim T(1 To 1, 1 To 4)
T(1, 1) = ComboBox2.Text
T(1, 2) = ComboBox3.Text
T(1, 3) = ComboBox1.Text
T(1, 4) = DateValue(ComboBox4.Text & " " & ComboBox5.Text & " " & ComboBox6.Text)
Feuil2.ListObjects("Tableau1").ListRows.Add.Range.Value = T
End Sub