'Nom de la macro
Sub copyshape()
'Feuille ou se trouve la forme portant ta macro. Comme le nom de la forme n'est pas donné dans ton sujet. Je l'ai appelé untel. A adapter au nom de ta forme. Celle-ci est donc copiée macro incluse
ActiveSheet. Shapes("untel"). Copy
'Puis boucle sur l'ensemble des feuilles nommées 1 à 50
For S=1 to 50
'Formatage en String (texte) de la variable S pour la variable Feuil
Feuil=Cstr(S)
'Puis chaque feuille reçoit la copie de la forme
Sheets(Feuil).Paste
Next S
End sub
La seule modification à faire est de changer untel par le nom de la forme à copier.
'Nom de la macro
Sub copyshape()
'Feuille ou se trouve la forme portant ta macro. Comme le nom de la forme n'est pas donné dans ton sujet. Je l'ai appelé untel. A adapter au nom de ta forme. Celle-ci est donc copiée macro incluse
ActiveSheet. Shapes("untel"). Copy
'Puis boucle sur l'ensemble des feuilles nommées 1 à 50
For S=1 to 50
'Formatage en String (texte) de la variable S pour la variable Feuil
Feuil=Cstr(S)
'Puis chaque feuille reçoit la copie de la forme
Sheets(Feuil).Paste
Next S
End sub
La seule modification à faire est de changer untel par le nom de la forme à copier.