XL 2016 Supprimer ligne par bouton

Private Sub btnOK_Click()
Dim Ligne As Integer
'NomFeuille

If Application.WorksheetFunction.CountA(Range("D5:D54")) >= 50 Then
MsgBox "Limite atteinte!", vbCritical, "LogiPAIE Pro50"
Unload Me
Else

If MsgBox("Confirmez-vous l'ajout de l'employé " & txtNom & " dans la liste des employés?", vbQuestion + vbYesNo, "LogiPAIE Pro50") = vbYes Then
Feuil1.Select
Ligne = Feuil1.Range("C54").End(xlUp).Row + 1
Cells(Ligne, 3) = cbxCivil.Value
Cells(Ligne, 4) = txtNom.Value
Cells(Ligne, 5) = cbxSex.Value
Cells(Ligne, 6) = txtDateNaiss.Value
Cells(Ligne, 7) = txtAdress.Value
Cells(Ligne, 8) = txtNumTel.Value
Cells(Ligne, 9) = txtdateEmb.Value
Cells(Ligne, 10) = txtDateSorti.Value
Cells(Ligne, 11) = txtDirection.Value
Cells(Ligne, 12) = txtSce.Value
Cells(Ligne, 13) = txtPoste.Value
Cells(Ligne, 14) = cbxRegime.Value
Cells(Ligne, 15) = cbxType.Value
Cells(Ligne, 16) = cbxCat.Value
Cells(Ligne, 17) = cbxEchel.Value
Cells(Ligne, 19) = txtNumCNPS.Value
Cells(Ligne, 20) = cbxModePaie.Value
Cells(Ligne, 21) = txtNumCpte.Value
Cells(Ligne, 22) = txtBanq.Value

MsgBox "L'employé " & txtNom & " a été ajouté à la liste des employés avec succès!!!", vbExclamation, "LogiPAIE Pro50"
Unload nvelEmploy
nvelEmploy.Show
Else
End If
End If
End Sub

Dim modif As Integer

If Not cbxNom.Value = "" Then
    If MsgBox("Voulez-vous modifier les informations relatifs à l'employé " & txtNom & " ?", vbInformation + vbYesNo, "LogiPAIE Pro50") = vbYes Then
    
    
Feuil1.Select
modif = cbxNom.ListIndex + 5
Cells(modif, 3) = cbxCivil.Value
Cells(modif, 4) = txtNom.Value
Cells(modif, 5) = cbxSex.Value
Cells(modif, 6) = txtDateNaiss.Value
Cells(modif, 7) = txtAdress.Value
Cells(modif, 8) = txtNumTel.Value
Cells(modif, 9) = txtdateEmb.Value
Cells(modif, 10) = txtDateSorti.Value
Cells(modif, 11) = txtDirection.Value
Cells(modif, 12) = txtSce.Value
Cells(modif, 13) = txtPoste.Value
Cells(modif, 14) = cbxRegime.Value
Cells(modif, 15) = cbxType.Value
Cells(modif, 16) = cbxCat.Value
Cells(modif, 17) = cbxEchel.Value
Cells(modif, 19) = txtNumCNPS.Value
Cells(modif, 20) = cbxModePaie.Value
Cells(modif, 21) = txtNumCpte.Value
Cells(modif, 22) = txtBanq.Value

MsgBox "Toutes les modifications ont été prises en compte avec succès", vbExclamation, "LogiPAIE Pro50"
    End If
Else
MsgBox ("Veuillez sélectionner ou saisir le nom de l'employé dans la balise de recheche")
Exit Sub
End If

Unload Me 'vide et ferme l'UserForm
End Sub