Private Sub TextBox1_Change()
Dim Recherche As String, Adresse As String
ListBox1.Clear
Recherche = TextBox1.Value
'Recherche 1ere feuille'
With Sheets("Feuil2").Range("j2:j36000, k2:k36000, l2:l36000")
Set C = .Find(Recherche, Lookat:=xlPart)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Recherche) Then ListBox1.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
'Recherche 2eme feuille'
With Sheets("Feuil3").Range("d2:d30, f2:f30")
Set C = .Find(Recherche, Lookat:=xlPart)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Recherche) Then ListBox1.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End Sub