Bonjour
Peut-être ainsi :
Sub Addme()
'procédure permettant de rajouter les données du formulaire dans le fichier source
Set NextRow = Sheets("source").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
For X = 1 To Cnum
If X = 1 And Me.Controls(Ref & X).Value <> "" Then NextRow = CDate(Me.Controls(Ref & X).Value) Else NextRow = Me.Controls(Ref & X).Value 'on récupère les valeurs des Controls
Set NextRow = NextRow.Offset(0, 1) 'on les insere dans le tableau
Next X
End Sub