Supprimer les doublons d'une combobox

Bonjour a tous,

J'ai possède une colonne "A" avec dedans des noms d'entreprise cependant, ils peuvent apparaître plusieurs fois et je voudrai donc qu'ils n'apparaissent qu'une seule fois dans ma combobox...

J'ai donc mis en place ce programme que j'ai aperçu sur plusieurs forum mais ça me renvoi une erreur d'execution 380 à la ligne : " Me.ComboBox1 = Cell "

J'ai beau essayer plusieurs variantes de cette ligne rien ne marche ...

Est-ce que quelqu'un aurait une idée pour résoudre mon problème ?

Merci d'avance

Private Sub UserForm_Activate()
UserForm7.ComboBox1.AddItem ""

Dim dernligne As Long
Dim Cell As Range

    dernligne = Sheets("Mesures").Range("A1048576").End(xlUp).Row

    'Supprime les données existantes dans le ComboBox
    Me.ComboBox1.Clear

    'Boucle sur les cellules de la plage L2:L9232 pour
    'alimenter le ComboBox
    For Each Cell In Worksheets("Mesures").Range("A2:A" & dernligne)
        Me.ComboBox1 = Cell
        'remplissage sans doublon
        If Me.ComboBox1.ListIndex = -1 Then
            Me.ComboBox1.AddItem Cell
        End If
    Next Cell
End Sub
Rechercher des sujets similaires à "supprimer doublons combobox"