Do
' If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
ListBox1.AddItem C.Offset(0, 0), n
ListBox1.List(n, 0) = C
ListBox1.List(n, 1) = C.Offset(0, 1)
ListBox1.List(n, 2) = C.Offset(0, 2)
n = n + 1
' End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With