XL 2010 Trier un dictionnaire par ordre alphabétique

Public NomComboBox$ 'mémorise la variable

Sub CreeListeDispo()
'Mise à jour des ComboBox, dont le nom commence par "ComboListe" (préfixe), de la feuille "Données" qui puisent tous leurs items dans la même base de données (feuille "BD").
'Chaque item ne peut être choisi qu'une fois dans un seul ComboBox ; il disparaît automatiquement des listes des autres ComboBox.
'En somme, on ne peut pas choisir plusieurs fois le même item.
'BOISGONTIER / Magic_Doctor/job75
Dim f1 As Worksheet, f2 As Worksheet, c, liste As Scripting.Dictionary

    Set f1 = Sheets("Données")
    Set f2 = Sheets("BD")
    Set liste = New Dictionary  'le dictionnaire
 
    With f2.Range("ListeItems").Offset(, 2)
        .Value = .Offset(, -2).Value
        .Sort .Cells, xlAscending, Header:=xlNo 'tri
        For Each c In .Cells
            If Len(c) Then liste(c.Value) = "" 'on remplit le dictionnaire
       Next
        .ClearContents
    End With
        
    For Each c In f1.OLEObjects
        If TypeName(c.Object) = "ComboBox" And Left(c.Name, 10) = "ComboListe" Then _
            If c.Name <> NomComboBox Then If liste.Exists(c.Object.Value) Then liste.Remove c.Object.Value
    Next
 
f1.OLEObjects(NomComboBox).Object.List = liste.Keys
    f1.OLEObjects(NomComboBox).Object.DropDown 'déeoule la liste
End Sub

Private Sub ComboListe1_GotFocus()
    NomComboBox = "ComboListe1"
    CreeListeDispo
End Sub

Sub CreeListeDispo()
'Mise à jour des ComboBox, dont le nom commence par "ComboListe" (préfixe), de la feuille "Données" qui puisent tous leurs items dans la même base de données (feuille "BD").
'Chaque item ne peut être choisi qu'une fois dans un seul ComboBox ; il disparaît automatiquement des listes des autres ComboBox.
'En somme, on ne peut pas choisir plusieurs fois le même item.
'BOISGONTIER / Magic_Doctor

Dim f1 As Worksheet, f2 As Worksheet, c, liste As Object  'Scripting.Dictionary

    Set f1 = Sheets("Données")
    Set f2 = Sheets("BD")
    Set liste = CreateObject("System.Collections.SortedList") 'New Dictionary  'le dictionnaire"
  
    On Error Resume Next        'pour éviter que ça plante si on modifie un item qui est sélectionné dans un des ComboBox
  
    For Each c In f2.Range("ListeItems").Value
        If Len(c) > 0 Then liste(c) = ""  'on rempli le dictionnaire
    Next
          
'************************************ NE MARCHE PAS ************************************
'    liste = SortDictionaryByKey (liste)  'tri, par ordre alphabétique, du dictionnaire
'***************************************************************************************
  
    For Each c In f1.OLEObjects
        If TypeName(c.Object) = "ComboBox" And Left(c.Name, 10) = "ComboListe" Then  'on passe en revue tous les ComboBox présents dans la feuille et on ne retient que les ComboBox dont le nom commence par "ComboListe"
            If c.Object <> "" Then liste.Remove c.Object.Value
        End If
    Next
    Dim i As Integer, K() As String: ReDim K(liste.Count - 1)
    'K = liste.Keys
    For i = 0 To liste.Count - 1
     K(i) = liste.GetKey(i)
    Next
    For Each c In f1.OLEObjects
        If TypeName(c.Object) = "ComboBox" And Left(c.Name, 10) = "ComboListe" Then  'on passe en revue tous les ComboBox présents dans la feuille et on ne retient que les ComboBox dont le nom commence par "ComboListe"
            c.Object.List = K
        End If
    Next
End Sub

    Set f1 = Sheets("Données")
    Set f2 = Sheets("BD")
    Set liste = CreateObject("System.Collections.ArrayList") 'New Dictionary  'le dictionnaire"

    On Error Resume Next        'pour éviter que ça plante si on modifie un item qui est sélectionné dans un des ComboBox
    
    For Each c In f2.Range("ListeItems").Value
        If Len(c) > 0 Then If Not liste.Contains(c) Then liste.Add c   'on rempli le dictionnaire
    Next
'*******************************************************************************'   
'Suite du code
'*******************************************************************************'
  
 liste.Sort
    For Each c In f1.OLEObjects
        If TypeName(c.Object) = "ComboBox" And Left(c.Name, 10) = "ComboListe" Then  'on passe en revue tous les ComboBox présents dans la feuille et on ne retient que les ComboBox dont le nom commence par "ComboListe"
            c.Object.List = liste.ToArray
        End If
    Next
End Sub

Sub CreeListeDispo(nomCombo$)

Dim f1 As Worksheet, f2 As Worksheet, c, AL As Object

    Set f1 = Sheets("Données")
    Set f2 = Sheets("BD")
    Set AL = CreateObject("System.Collections.ArrayList")
    
    For Each c In f2.Range("ListeItems")  'on dresse l'Array "AL"
       AL.Add c.Text                      'il faut utiliser ".Text" sinon impossible de trier, car on enverrait un "Range"
    Next
    AL.Sort                               'tri, par ordre alphabétique, de l'Array
    
    For Each c In f1.OLEObjects
        If TypeName(c.Object) = "ComboBox" And Left(c.Name, 10) = nomCombo Then  'on passe en revue tous les ComboBox présents dans la feuille et on ne retient que ceux dont le nom commence par "ComboListe"
            AL.Remove c.Object.Value
            c.Object.List = AL.ToArray
        End If
    Next
End Sub