Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Set mondico = CreateObject("Scripting.Dictionary")
a = f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' tableau a(n,1) pour rapidité
For i = LBound(a) To UBound(a)
'EXPLICATION DE CETTE LIGNE SVP
If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
Next i
Me.ComboBox1.List = mondico.keys
End Sub