ws.Cells(Row.Count, 1).End(xlUp)(2) = CbbGroupe.Value
ws.Cells(Row.Count, 2).End(xlUp)(2) = CbbPersonne.Value
ws.Cells(Row.Count, 3).End(xlUp)(2) = CbbJour.Value & "." & CbbMois.Value & "." & CbbAnnee.Value
ws.Cells(Row.Count, 4).End(xlUp)(2) = CbbHeures.Value & ":" & CbbMinutes.Value