Combobox et textbox

Bonsoir le forum

J’ai un userform dans lequel il y a un combobox lié à un textbox

dans ma combobox il y a les noms des collèges, quand on fait un choix à l’aide combobox, le textbox affiche la ville correspondante. Pour cela j’utilise une macro que j’ai trouvé sur le net et qui marche très bien mais je bloque sur un petit problème c’est les doublons dans liste des collèges

pouvez-vous m'aider à avoir cet combobox sans doublons ?

Je vous joins un fichier

Merci

Cordialement

Bonjour,

Voici :

Private Sub UserForm_Initialize()
    Dim Dico As Object

    Set Dico = CreateObject("Scripting.Dictionary")

    Set xRg = Worksheets("Feuil1").Range("G3:H150")
    For i = 1 To xRg.Count
        If xRg(i).Value <> "" Then Dico(xRg(i).Value) = ""
    Next i
    Me.ComboBox1.List = Dico.Keys

End Sub

j'ai testé votre code et c'est impeccable merci bien Theze

Bon soirée