TRIE DE VALEURS DANS UN COMBO

totale = Combo1.ListCount
Combo1.Text = Combo1.List(0)
Combo2.AddItem Combo1.Text
compt = 1
Combo1.Text = Combo1.List(compt)
Combo2.Text = Combo2.List(0)
nombre = 1
compteur = 0
Do While Not compt > totale
Do While Not compteur > nombre
Combo2.Text = Combo2.List(compteur)
If Combo1.Text <> Combo2.Text Then
compteur = compteur + 1
Else
GoTo Saut1
End If
Loop
Combo2.AddItem Combo1.Text
nombre = nombre + 1
Saut1:
compteur = 0
compt = compt + 1
Combo1.Text = Combo1.List(compt)
Loop