Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In f.Range("A2:A" & f.[A65000].End(xlUp).Row)
mondico(C.Value) = ""
Next C
temp = mondico.keys
Call Tri(temp, LBound(temp), UBound(temp))
Me.ComboBox1.List = temp
'1ère solution
ComboBox3.List = [Piston].Value 'Voir Plage dans Gestionnaire des noms
'Ou 2 ème solution
'ComboBox3.List = Sheets("BD").Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Value
End Sub