Bonjour,
J'utilise beaucoup la fonction CreateObject("Scripting.Dictionary")
comme dans la document :
Dim a, d, i 'Crée des variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athènes" 'Ajoute des clés et des éléments.
d.Add "c", "Le Caire"
d.Add "b"...