Private Sub CommandButton1_Click()
'Remplissage tableau
i = 18
With Sheets("saisies")
Do While .Cells(i, 18) <> ""
i = i + 1
Loop
Worksheets("saisies").Select
Range("E65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CboDates
ActiveCell.Offset(0, 1).Value = TextBox3
ActiveCell.Offset(0, 2).Value = TextBox4
ActiveCell.Offset(0, 3).Value = TextBox1
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 7).Value = TextBox5
ActiveCell.Offset(0, 8).Value = TextBox6
ActiveCell.Offset(0, 9).Value = TextBox7
End With
'Quitter le formulaire
Unload Me
Sheets("Saisies").Select