bonjour
si tu as dessiné ton bouton avec la barre de formulaires, ton code marche.
vérifie bien les noms de tes objets
Sub demo()
Sheets("feuil1").Shapes("Button 1").Select
Selection.OnAction = "bonjour"
End Sub
Sub bonjour()
MsgBox "bonjour"
End Sub
A noter qu'un bouton peut être appelé par son nom en français ou en anglais !!
si ton bouton est dessiné à l'aide d'une autre barre, c'est autre chose et j'ai pas ça sous la main
bye
stephane