...
If Not r Is Nothing Then
pa = r.Address
Do
With Me.ListBox1
.AddItem r.Value
.Column(1, .ListCount - 1) = r.Row
End With
Set r = pl.FindNext(r)
Loop While Not r Is Nothing And r.Address <> pa
'i Si... pour le message puis la correction
Else
MsgBox "non trouvé", vbCritical, "Attention..."
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
...