Private Sub UserForm_Activate()
Dim T
T = Array("toto", "titi", "riri", "fifi", "loulou", "machin", "toto", "truc", "bidule", "titi", "robert", "riri", "fifi", "paul", "loulou")
ListUniqueWithArray T, ComboBox1
End Sub
Sub ListUniqueWithArray(T, ObjList)
Dim z&, I&, X&
If LBound(T) = 0 Then z = 1
For I = LBound(T) To UBound(T)
X = Application.Match(T(I), T, 0) - z: If X = I Then ObjList.AddItem T(I)
Next
End Sub