Bonjour Sassi.
Tu peux modifier ton code ainsi :
Il y a pas mal de façons de trouver la dernière ligne remplie.
Ici je boucle sur la colonne A, jusqu'à trouver une ligne vide.
Private Sub btnajout_Click()
With Sheets("source")
i = 2
Do Until .Cells(i, 1).Value = ""
i = i + 1
Loop
.Cells(i, 1).Value = Me.cbocollaborateur.Value
.Cells(i, 2).Value = Me.cbodate.Value
.Cells(i, 3).Value = Me.cbodossier.Value
.Cells(i, 4).Value = Me.cbotache.Value
.Cells(i, 5).Value = Me.txtdebut.Value
.Cells(i, 6).Value = Me.Txtfin.Value
End With
MsgBox " votre saisie a bien été ajouter", vbOKOnly + vbInformation, "CONFIRMATION"
End Sub