XL 2010 Objet dictionnary

Bonjour,

Je cherche à charger un dictionnaire à partir d’un tableau.
Mon code ne fonctionne pas


Sub chargtDictionnaire2()
Set Mondico = Nothing
t2 = Range("tableau2")

For i = 1 To UBound(t2, 1) ' je charge le dico y compris les doublons
Clé = t2(i, 1)
valeur = Array(t2(i, 2), t2(i, 3))
Mondico.Add Clé, valeur
Next i
' je vérifie
For Each TestValeurDico In Mondico.Keys
MsgBox "clé " & TestValeurDico & " valeur " & Mondico(TestValeurDico) 'affiche la valeur de la clé
Stop
Next TestValeurDico

End Sub


Je vous remercie par avance pour votre aide
Bonne fin de journée
Fichier en annexe


Goufra