Private Sub TextBox1_Change()
' Vériland
' Octobre 2003
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object
ListBox1.Clear
Recherche = TextBox1.Value
Range("A1").Select
Ligne = Feuil2.Range("B" & "65536").End(xlUp).Row
Set Plage = Feuil2.Range("B" & "2:" & "B" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = _
UCase(Left(C, Len(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