Variable, dénomination & rappel de variable

Sub test()
    Dim CoD(3) 'tableau de 1 a 3
    
    CoD(1) = 123
    CoD(2) = 124
    CoD(3) = 300

    A = CoD(Cells(1, 1).Value)
    B = CoD(Cells(2, 1).Value)

    For i = A To B


    Next i
End Sub

Option Explicit

Dim Arret As Boolean

Sub test()
Dim Debut As Integer, Fin As Integer, i As Long, Pas As Integer

Arret = True
Debut = Boucle(Cells(1, 1).Value)
Fin = Boucle(Cells(2, 1).Value)
Pas = 1
If Arret = False Then MsgBox "Au moins une des deux valeurs de boucle est invalide": Exit Sub
If Fin < Debut Then Pas = -Pas 'permet de boucler de 300 à 124 par exemple (Step -1)

For i = Debut To Fin Step Pas
    'Debug.Print i
    ' Bla bla
Next i
End Sub

Function Boucle(Valeur As Integer)
Select Case Valeur
    Case 1
        Boucle = 123
    Case 2
        Boucle = 125
    Case 3
        Boucle = 130
    Case 4
        Boucle = 135
    'etc
    Case Else
        Arret = False
End Select
End Function