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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.