Sub cmb()
Feuil4.ComboBox1.List = CLsCAs.SujetCBx(Feuil4.[E2].Resize(Feuil4.[E10000].End(xlUp).Row - 1))(0)
End Sub
Private Sub ComboBox1_GotFocus()
Set d = CreateObject("scripting.dictionary")
For Each c In [E2:E10]
d(c.Value) = ""
Next c
Me.ComboBox1.List = d.keys
End Sub