Incrémenter le NOM d'une variable

Bonjour et Bonne année!!

Je vous contacte car je souhaiterais faire une boucle ou j'incrémenterais le NOM de la variable

Voici une partie de mon code actuel : (rst=Recorset; toute les variables CPT_E_ ont été déclarées

Code:

---

1 2 3 4 5 6 7 8 9

CPT_E_4 = rst.Fields("N°_Protection").Value rst.MoveNext   CPT_E_5 = rst.Fields("N°_Protection").Value rst.MoveNext   CPT_E_6 = rst.Fields("N°_Protection").Value rst.MoveNext

---

Mais je souhaiterais faire une seule ligne de code et non X ligne.
style :

Code:

---

1 2 3 4 5

For counter = 1 To 99 XX=XX + 1 CPT_E_XX = rst.Fields("N°_Protection").Value rst.MoveNext Next counter

---

Merci d'avance

PS : je suis ouvert à toutes autres solutions.

tu ne peux pas incrémenter le NOM d'une variable.
Par contre, tu peux faire une variable tableau

Code:

---

1 2 3 4 5 6

Dim MyVar(99) as string Dim i as Long   For i = 0 to 99 MyVar(i)="ayé !" Next

---