Sub SimulDictionnareCollection()
Dim CollecItem As New Collection, CollecCle As New Collection
nom = "Dupond": age = 30
CollecCle.Add Item:=nom, Key:=nom
CollecItem.Add Item:=age, Key:=nom
nom = "Martin": age = 35
CollecCle.Add Item:=nom, Key:=nom
CollecItem.Add Item:=age, Key:=nom
For i = 1 To CollecCle.Count ' Toutes les clés et items
Cells(i + 1, 1) = CollecCle(i)
Cells(i + 1, 2) = CollecItem(CollecCle(i))
Next i
'---
clé = "Martin"
MsgBox CollecItem(clé)
End Sub