Option Explicit
'
Private Sub CommandButton1_Click()
Dim Plg As Range, Cel As Range, Lp As Long
Set Plg = Feuil3.Range("D4:D" & Feuil3.[D5].End(xlDown).Row)
Set Cel = Plg.Find(What:=Me.TextBox1.Text, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Me.ListBox1.Clear
If Cel Is Nothing Then Exit Sub
Do
Me.ListBox1.AddItem Cel.Offset(, 1).Value
Lp = Cel.Row
Set Cel = Plg.FindNext(After:=Cel)
Loop Until Cel.Row <= Lp
End Sub
'
Private Sub CommandButton2_Click()
Unload Me
End Sub