Dim i As Integer
Dim Elements As New Collection
On Error Resume Next
'Pour chaque éléments de la combo
For i = 0 To Combo1.ListCount - 1
'On l'ajoute a la collection
'Si il existe déja => Erreur (ignorée)
Call Elements.Add(Combo1.List(i), Combo1.List(i))
Next
On Error GoTo 0
'On Vide le Combo
Call Combo1.Clear
'POur chaque éléments de la collection
For i = 1 To Elements.Count
'On l'ajoute au combo
Call Combo1.AddItem(Elements(i))
Next