Nom de plage variable

Bonjour a tous,

Y a t'il un moyen de définir des noms de plages avec une variable intégrée?

J'ai plusieurs petits tableaux dans une feuille et je voudrais chacun les nommer indépendamment.

J'ai écris ca:

n = 1
For j = 1 To Nb_col Step 1
["tableau "&n].range(Cells(1, 1), Cells(4 + Nb_lig, 70)).Select
Selection.Copy
["tableau "&n].range(Cells(4 + Nb_lig, 1)).Offset(2, 0).Activate
Selection.Insert Shift:=xlDown
n = n + 1
Set ["tableau "&n] = ActiveCell
Rows(2 + n * (Nb_lig + 5)).Select
Selection.Insert Shift:=xlDown
Next

Mais le set est refusé.

Comment puis je faire pour avoir des plages qui vont être nommées Tableau 1,Tableau 2,Tableau 3,Tableau 4...... jusqu'à ce que la boucle se finisse?

J'ai séché tout le monde?

Plus simplement, qu'il y a t'il de mauvais la dedans?

Dim Tableau(n) as range
n=1

For n=1 to x
Set Tableau(n)=range(A1:A2)
activecell.offset(1,0)
next

Je sais déjà que déclarer Tableau(n) ne passe pas, on me demande d’intégrer une constante, mais si je donne un nom de plage constant je ne peux pas l’incrémenter.

Quelqu’un a t'il une idée?

Bonsoir,

Et tu joignais un fichier à ta demande?

Cdlt.