Bouton supprimer defaut de ligne

Bonjour,

Dans ma bdd la première donnée se trouve a la ligne 3
Quand je veux supprimer la ligne qui comporte 6 il me supprime la ligne qui comporte 1
ensuite supprimer la ligne du 6 il me supprime la ligne du 2
Je vous joint le code du bouton
Private Sub btnsupprimer_Click()
Dim q As String
Dim i As Integer, fin As Long
i = 2
fin = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
Do While C_Civilité.Value <> Feuil2.Cells(i, 1)
i = i + 1
If i > fin Then MsgBox " Le nom spécifié n'existe pas ": GoTo 1
Loop
q = MsgBox("Supprimer " & T_nom & " ? ", vbCritical + vbYesNo)
If q = vbYes Then
Feuil2.Rows(i).Delete
MsgBox "Elément supprimé"
Me.Label1.Caption = i
Me.SpinButton2.Max = Me.SpinButton2.Max - 1
Me.SpinButton2.Value = Me.SpinButton2.Max
End If
Unload Me
F_Clients.Show: Exit Sub
1: MsgBox " Veuillez introduire un nom "
End Sub

Merci pour votre aide
Cordialement