Private Sub TextBox1_Change()
Dim f As Worksheet, f1 As Worksheet, i As Integer, c As Variant
Set f = Sheets("Clients")
Set f1 = Sheets("Prospects")
Range("B:B").Interior.ColorIndex = xlNone
ListBox1.Clear
For Each c In f1.[Prosp[Société]]
If UCase(c) Like "*" & UCase(Me.TextBox1) & "*" Then
Label12 = c.Value
ListBox1.AddItem c.Value
c.Interior.ColorIndex = 20
End If
Next c
End Sub