Non, je n'avais pas cliqué sur le bouton...
Essaye avec...
Sub Macro1()
With ActiveSheet.Buttons
.Add(185.25, 68.25, 163.5, 69).Select
With Selection
.OnAction = "aurevoir"
.Characters.Text = "Au revoir"
End With
.Add(391.5, 156, 165.75, 96.75).Select
With Selection
.OnAction = "bonjour"
.Characters.Text = "Bonjour"
End With
End With
End Sub
A+