Remplir un ComboBox avec une liste triée sans doublons depuis un classeur fermé

Private Sub Workbook_Open()
Dim Chemin As String, Fichier As String
Chemin = "D:\Dossiers Excel\The Best Of VBA\Commerciaux\"
Fichier = "Table.xls"
ThisWorkbook.Names.Add "plage", _
 RefersTo:="='" & Chemin & "[" & Fichier & "]Data'!$A$2:$A$37"
Feuil1.Range("az2:az37") = "=plage"
End Sub



Private Sub UserForm_Activate()
ComboBox1 = ""
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
          With Feuil1
        For i = 2 To .Range("AZ65536").End(xlUp).Row
        ComboBox1 = .Range("AZ" & i)  
           'Remplissage de la ComboBox sans doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("AZ" & i)
    Next i
    End With
End Sub

Sub vachercher()
With UserForm1
.ComboBox1.Clear
Chemin = "'" & ThisWorkbook.Path & "\" 'le même dossier
Fichier = "[charpente.xls]" ' le nom du fichier à lire
Onglet = "Tuiles'!" 'le nom de l'onglet à lire
For k = 7 To 65000 'commencer à lire à la ligne 7
ChampALire = "R" & k & "C1" ' k est la ligne incrémentée C1 est col A C2 est B ainsi de suite
'ChampALire2 = "R" & k & "C2" 'si combobox a 2 colonnes
.ComboBox1.AddItem Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire)
'.ComboBox1.Column(1, .ComboBox1.ListCount - 1) = Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire2)
If .ComboBox1.List(.ComboBox1.ListCount - 1) = 0 Then
.ComboBox1.RemoveItem (.ComboBox1.ListCount - 1)
Exit For 'si vide on quitte la boucle
End If
Next
.Show
End With
End Sub

Sub vachercher()
 Set dico = CreateObject("Scripting.Dictionary")
With UserForm1
.ComboBox1.Clear
Chemin = "'" & ThisWorkbook.Path & "\" 'le même dossier
Fichier = "[charpente.xls]" ' le nom du fichier à lire
Onglet = "Tuiles'!" 'le nom de l'onglet à lire
For k = 7 To 65000 'commencer à lire à la ligne 7
 ChampALire = "R" & k & "C1" ' k est la ligne incrémentée C1 est col A C2 est B ainsi de suite
 tx = Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire)
  If tx = 0 Then Exit For
 dico(tx) = "" 
Next
a = dico.keys 'Obtient les éléments
For k = 0 To UBound(a) - 1 'trie éléments
 For b = k + 1 To UBound(a)
   If a(b) < a(k) Then
   temp = a(b)
   a(b) = a(k)
   a(k) = temp
   End If
 Next
Next
For k = 0 To dico.Count - 1 'mets éléments
.ComboBox1.AddItem a(k)
Next
.Show
End With
End Sub