Macro: Formule selon nom de la forme

Bonjour,

j'ai créé la macro suivante:

Sub Forme_A()

Range("K4").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(""Forme_A"",Sheet2!R3C6:R5C8,2,FALSE)"

End Sub

Le problème est qu'il y a plusieurs centaines de formes.

Comment puis-je faire pour que le "Forme_A" de la formule soit remplacé par le nom de la shape s'il vous plait ?

Cela me permettrait de n'avoir qu'une seule macro, a affecter à toutes les shapes.

Merci

Bonsoir et bienvenu,

Un fichier sera nécessaire pour comprendre le problème.

Bonsoir et merci, c'est effectivement mon premier message sur le forum.

Voici donc un fichier exemple.

Il y a 3 macros, s'il y avait 100 formes, il me faudrait 100 macros...