Supprimer une entrée d'un tableau depuis listbox

Bonsoir

J'aimerai bien supprimer une entrée que l'utilisateur a saisi dans une feuille grâce a userform, comme la photo ci dessous

imgur com/w1SGa.png

Je veux bien qu'une fois il sélectionne l'entrée qu'il veut supprimer, puis il clique sur DELETE, les informations sélectionnées s'effacent de la feuille, j'ai essayé ce code là mais ça ne donne aucun résultat et aucune erreur

Private Sub delete_Click()
Dim i As Integer
  For i = 1 To Range("A65656").End(xlUp).Row
    If lstdiplay.Selected(i) Then
      Rows(i + 1).Selected
      Rows(i).Select
      Selection.delete
    End If
  Next i
End Sub

Je veux bien savoir aussi est ce que c'est possible qu'une fois l'utilisateur clique sur delete , il lui affiche une fenêtre où il doit enter un mot de passe avant d'effacer

Merci

up

Bonjour,

Avec un bout de fichier représentatif incluant, les macros ... afin d'avoir une bonne vue d'ensemble, aideraient sûrement les gens à s'intéresser à ton souci.

ric

Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set plg = f.Range("a2:b" & f.[a65000].End(xlUp).Row)
  Me.ListBox1.List = plg.Value
  Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub B_delete_Click()
 For i = Me.ListBox1.ListCount - 1 To 0 Step -1
    If Me.ListBox1.Selected(i) Then Rows(i + 2).Delete
 Next i
End Sub

Boisgontier