Modifier supprimer

Bonjour voila je souhaiterai faire un formulaire dans lequel je peux supprimer ou modifier un contact, j'ai un petit problème avec c'est fonction pour Modifier j'ai débutais comme ceci

Private Sub CommandButton2_Click() 'Modifier
Dim Nb%, Y%, i%, X%
Dim Element_Select As Boolean

Element_Select = False
Nb = Sheets("Feuill2").Range("R1").Value '' Nb=NBVAL(B2:B100)
X = 2


'------------- Modification coordonnées client ------------------
For i = 0 To Nb - 1
If UserForm1.ListBox1.Selected(i) = True Then
Element_Select = True
Sheets("Feuill2").Activate
Sheets("Feuill2").Range("B" & i + X).Select
For Y = 0 To 4
Range("B" & i + X).Offset(0, Y).Value = Controls("Textbox" & Y + 1).Value

Next
End If

j'ai remarqué qu'il y avait un décalage, car je part du numéro sélectionner par rapport a la liste, de même pour la fonction supprimer :
Private Sub CommandButton3_Click()
With Sheets("Feuill2")
For i = 0 To Nb - 1
If UserForm1.ListBox1.Selected(i) Then
Rows(i+2).Delete
End If

je n'arrive pas a debloquer pourriez vous m'aider svp