Private Sub CommandButton1_Click()
With Sheets("feuil1")
i = .Range("A65536").End(xlUp)(1).Row
.Range("A" & i + 1).Value = TextBox1.Value
.Range("B" & i + 1).Value = ComboBox1
.Range("C" & i + 1).Value = ComboBox2
.Range("D" & i + 1).Value = DTPDateDebut
.Range("D" & i + 1).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
'.Range("E" & i + 1).Value = TextBox5
.Range("E" & i + 1).Value = DTPDateFin
.Range("E" & i + 1).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
.Range("F" & i + 1).Value = TextBox2.Value
.Range("G" & i + 1).Value = TextBox3.Value
.Range("H" & i + 1).Value = ComboBox3.Value
End With
Unload Me
End Sub