Bonjour Konik,
pour données le nom que tu veux je crois qu'il faut remplacer:
ActiveSheet.Name = 'Modules' & y
par
ActiveSheet.Name = Worksheets('Modules').Range('A1').Value
En ce qui concerne le lien que tu veux créer, je te propose un bouton de commande. Pour cela, agis comme suit:
Menu / Affichage / Barre d'outil / formulaire / bouton
dimensionne ton bouton sur ta feuille puis dans le menu qui apparait, affectes ta macro 'CopieAnalyse'.
Appuies ensuite sur controle en cliquant sur le bouton pour le redimensionner puis sur alt pour qu'il 's'attache' à une cellule.
Avec un clic droit, tu peux modifier son nom et l'appeler 'go' si tu le souhaites.
Bon travail,
@ +
Toutou