Bonjour,
En reprenant le code de @ ric ,
Private Sub BtnAjout_Click()
Dim Dlig As Long
With Sheets("Source")
Dlig = .Cells(Rows.Count, "A").End(xlUp).Row + 1 ' dernière ligne plus 1
.Cells(Dlig, "A") = CDate(Me.TxtDate) ' format date
.Cells(Dlig, "B") = Me.CboTechniciens
.Cells(Dlig, "C") = Me.CboProjet
.Cells(Dlig, "D") = Me.CboPhase
.Cells(Dlig, "E") = CSng(Me.CboNbr)
End With
End Sub
Il faut forcer le format de l'heure en Single.