Positionner un Bouton (Forme) sur plusieurs Feuilles

Bonjour Forum

J'ai un Fichier avec 80 Feuilles sur lesquelles je voudrais placer une Forme a laquelle j'ai associé une macro.

Je veux que ma forme occupe le même emplacement sur toutes les feuilles.

Je peux le faire feuille après feuille ( Fastidieux !) mais existe t-il une meilleure méthode ?

merci !!

Bonjour,

Il existe une méthode automatique pour le faire oui:

Sub bloup()
MsgBox "Bloup", vbInformation, "Bloup bloup"
End Sub

Sub creeForme()
Dim Forme As Shape
Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Worksheets
    Feuille.Select
    Set Forme = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 48, 17.25, 154.5, 51)
    Forme.Fill.ForeColor.RGB = RGB(120, 120, 120)
    Forme.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = 0
    Forme.TextFrame2.TextRange.Font.Size = 14
    Forme.TextFrame2.TextRange.Text = "Bloup"
    Forme.TextFrame.HorizontalAlignment = xlHAlignCenter
    Forme.TextFrame.VerticalAlignment = xlVAlignCenter
    Forme.TextFrame2.TextRange.Font.Bold = msoTrue
    Forme.OnAction = "bloup"
Next Feuille
End Sub

C'est un exemple qui va créer un bouton avec fond gris, texte noir de taille 14 en gras, la forme exécute la macro "bloup" à chaque fois qu'on appuie dessus.

Cette forme va être créée pour toutes les feuilles.

Je vous laisse le soin de voir comment l'adapter pour votre fichier.

SUPER MERCI!!