Option Compare Text
Dim f, Choix(), d1
Private Sub UserForm_Initialize()
Set f = Sheets("bd")
Set Rng = f.Range("a2:a" & f.[A65000].End(xlUp).Row)
Choix = Application.Transpose(Rng)
Me.ListBox1.List = Choix
End Sub
Private Sub TextBox1_Change()
Set d1 = CreateObject("scripting.dictionary")
mots = Split(Trim(Me.TextBox1), ",")
For Each m In mots
mots2 = Split(Trim(m), " ")
Tbl = Choix
For i = LBound(mots2) To UBound(mots2)
Tbl = Filter(Tbl, mots2(i), True, vbTextCompare)
Next i
For i = LBound(Tbl) To UBound(Tbl): d1(Tbl(i)) = "": Next i
Next m
Me.ListBox1.List = d1.keys
End Sub