Sub AjouterLesBoutons()
For Each sh In ThisWorkbook.Worksheets
With sh
With .Buttons.Add(432, 26.4, 81, 25.2)
.Characters.Text = "Macro Toto !"
With .Font
.Name = "Arial"
.FontStyle = "Gras italique"
.Size = 10
.ColorIndex = 3
End With
.OnAction = "Toto"
End With
End With
Next
End Sub
Sub Toto()
[A1] = "Résultat de la macro Toto !"
End Sub