Trier aléatoirement mon dictionnaire

je veux trier aléatoirement mon dictionnaire, voilà mon code

que dois-je faire ?

MON CODE :

Dim key2 As Variant, ArrayDict As Variant

'création array à partir du dict
k = 1
For Each key2 In dict
ArrayDict(k, 1) = key2
ArrayDict(k, 2) = dict(key2)
k = k + 1
Next key2

'vide le dict
dict.RemoveAll

'randomise array order
For i = 1 To k 'melanger les villes candidates
a1 = aleatoire(1, k)
a2 = aleatoire(1, k)
a = ArrayDict(a1, 1): ArrayDict(a1, 1) = ArrayDict(a2, 1): ArrayDict(a2, 1) = a
a = ArrayDict(a1, 2): ArrayDict(a1, 2) = ArrayDict(a2, 2): ArrayDict(a2, 2) = a
Next i

'on rempli le dict à partir de l'array
For i = 1 To UBound(ArrayDict)
dict(ArrayDict(k, 1)) = ArrayDict(k, 2)
Next i

merci d'avance