Dim a()
Sub UserForm_Initialize()
Set f = Sheets("feuil1")
b = Application.Transpose(f.Range("L2:L" & [L65000].End(xlUp).Row))
Set d = CreateObject("scripting.dictionary")
For Each c In b: d(c) = "": Next c ' élimination des doublons
a = d.keys
Me.ListBox1.List = a
End Sub
Private Sub Textbox1_Change()
choix = Filter(a, Me.TextBox1.Text, True, vbTextCompare)
If UBound(choix) > -1 Then
Me.ListBox1.List = choix
Me.ListBox1.Visible = True
Else
Me.ListBox1.Visible = False
End If
End Sub