Private Sub TextBoxRech1_Change()
Me.ListBox1.Clear
If Me.TextBoxRech1 = "" Then Exit Sub
k = 0
With Feuil3.Range("A2:C" & Feuil3.[B65000].End(3).Row)
Set c = .Find(TextBoxRech1.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If lig <> c.Row Then
ListBox1.AddItem Feuil3.Cells(c.Row, 1)
ListBox1.List(k, 1) = Feuil3.Cells(c.Row, 2)
ListBox1.List(k, 2) = Feuil3.Cells(c.Row, 3)
'ici la suite si besoin
k = k + 1
lig = c.Row
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub