Comment faire pour qu'une plage de cellule prenne le nom du contenu d'une autre cellule ?

J'ai tenté quelque chose qui ne marche pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
J = Sheets("Feuil_historique").Range("A1")
    ActiveWorkbook.Names.Add Name:="&J&", RefersToR1C1:= _
        "=Feuil_historique!R13C2:R18C7"