ActiveCell.Value = UserForm1.ComboJour.Value 'Jour
ActiveCell.Offset(0, 1).Value = UserForm1.TxtDate.Value 'Date
ActiveCell.Offset(0, 2).Value = UserForm1.TxtDebut.Value 'Heure debut
ActiveCell.Offset(0, 3).Value = UserForm1.TxtFin.Value 'Heure Fin