Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" Then
Set d1 = CreateObject("Scripting.Dictionary")
tmp = UCase(Me.ComboBox1) & "*"
For Each c In Sheets("BD").[liste]
If UCase(c) Like tmp Then d1(c.Value) = ""
Next c
Me.ComboBox1.List = d1.keys
Me.ComboBox1.DropDown
[e2] = Me.ComboBox1
End If
End Sub