Sub remplit_combo()
Dim Cell As Range
Dim mondico, temp
'Supprime les données existantes dans le ComboBox
Sheets("Feuil1").ComboBox1.Clear
Set mondico = CreateObject("Scripting.Dictionary")
For Each Cell In Sheets("Feuil1").Range("B2", Sheets("Feuil1").[B65000].End(xlUp))
If Not mondico.Exists(Cell.Value) Then
mondico.Add Cell.Value, Cell.Value
End If
Next Cell
temp = mondico.Items
Sheets("Feuil1").ComboBox1.List = temp
End Sub