For Each Collection (gb)
Dim hCollection
As Collection
Dim aVariant
As Variant
For Each aVariant
In hCollection
...
Next
Enumére chaque élément stocké dans la collection.
Notez que les éléments sont énumérés dans l'ordre où il ont été inséré. Mais si vous remplacez la valeur d'une clef déjà inséré, l'ordre est conservé.