Sub CompleterComboSansDoublon()
Dim Db As New Collection
Dim TabTemp As Variant
Dim L As Long, Verif As Long
'Charge les Numéros de Groupe dans un tableau variant temporaire
With Sheets('Feuil1')
L = .Range('A65536').End(xlUp).Row
TabTemp = .Range(.Cells(1, 1), .Cells(L, 1)).Value
End With
'Complétude du ComboBox1 en éliminant les doublons
'(élimination des doublons basée sur un code de J.G. Hussey)
On Error Resume Next
ComboBox1.Clear
Verif = 0
For L = 1 To UBound(TabTemp, 1)
Db.Add TabTemp(L, 1), Str(TabTemp(L, 1))
If Verif <> Db.Count Then
ComboBox1.AddItem TabTemp(L, 1)
End If
Verif = Db.Count
Next L
On Error GoTo 0
End Sub