Private Sub UserForm_Initialize()
Dim mondico As Variant
Dim a, fin, i As Integer
Set mondico = CreateObject("Scripting.Dictionary")
With Sheets("BD")
fin = .Range("A" & .Rows.Count).End(xlUp).Row
a = .Range("A2:A" & fin) ' tableau a(n,1) pour rapidité
For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
Next i
Me.ListBox1.List = mondico.keys
End With
End Sub