dans ton formulaire ton code sembe supprimer des lignes
je te propose le code suivant
Sheets("recapitulatif conges payés").Activate
Range("A65000").End(xlUp).Offset(1).Select 'recherche la première cellule vide
ActiveCell.Offset(0, 0).Value = Cbonom.Value
ActiveCell.Offset(0, 1).Value = Cboabsence
ActiveCell.Offset(0, 2).Value = Txtdate
ActiveCell.Offset(0, 3).Value = Txtdatefin
cordialement