Plage nommée dans une cellule

Bonjour,

J'ai plusieurs plages nommées (data1, data2...)

J'aimerais dans une cellule faire une liste avec ces noms de plages pour pouvoir extraire ces plages dans une nouvelle feuille.

Ci-dessous mon code :

Application.Goto Reference:="data1"

Selection.Copy

Workbooks.Add 'Ouvre un nouveau Fichier XL

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Selection.PasteSpecial 8

Au lieu de data1, je voudrais faire référence à une cellule "A2" par exemple mais cela ne fonctionne pas.

Merci pour votre aide.

Salut saaku

Essaie comme ca

Range("A2")

Non, ça me copie la valeur de la cellule au lieu de la plage