Variable incrémentée

Bonjour,

Dans une macro plus générale, j'ai besoin de créer un jeu de variables incrémentées et de leur attribuer des valeurs présentes dans une plage.

    For i = 1 To N2$ - 1
    Range("B" & N1$ + 5 + i).Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],4)"
    If ActiveCell.Value <> "http" Then Exit For
        Range("A" & N1$ + 5 + i).Select

A ce stade, je voudrais créer une variable leLien1$ et lui attribuer

leLien1$ = Range("A" & N1$ + 5 + i).value

Puis continuer la boucle et

leLien2$ = Range("A" & N1$ + 5 + i).value

J'ai trouvé ce bout de code (Sub Variables incrémentées() ) qui crée bien les variables (?) leLien1$, leLien2$, etc... mais je ne sais pas quoi modifier dans la ligne

MsgBox NomTableau(j)

pour pouvoir utiliser ces variables dans le reste de mon code.

Merci

Sub Variables incrémentées()
    'Définit le type de données pour le tableau.
    '
    ' Variables incrémentées
    '
    Dim NomTableau() As String
    Dim i As Integer, j As Integer

    i = 2
    'Définit la taille du tableau
    ReDim NomTableau(i)

    'Alimente les éléments du tableau
    For j = 0 To UBound(NomTableau)
        'NomTableau(j) = Chr(65 + j)
        NomTableau(j) = "leLien" & j + 1 & "$"
    Next j

    'Boucle sur les éléments du tableau
    For j = 0 To UBound(NomTableau)
        MsgBox NomTableau(j)
    Next j
End Sub

Bonjour,

J'ai résolu mon pb en utilisant un tableau plus simple.

Sub MonTab()
   Dim N1, N2, N3 As Integer
'
' selection de la plage
'
   N3 = Selection.Count
   N1 = ActiveCell.Row
   N2 = N1 + N3 - 1

' Création du tableau de données
   Dim tab_exemple(100)

' Enregistrement des valeurs dans le tableau
   For i = 0 To N2
      tab_exemple(i) = Range("A" & N1 + i)
      Msg = Msg & tab_exemple(i) & Chr(10) ' Assemblage des lignes avec retour chariot après chaque contenu de cellule
      Next i
'
   Range("C" & N1).Select
   ActiveCell.FormulaR1C1 = Msg ' Résultat de la "concaténation" des cellules
End Sub