Application.CommandBars("Forms").Visible = True
With ActiveSheet.Buttons.Add(356.25, 171.75, 188.25, 33.75)
.OnAction = "Saisie_Fiche_Clients_Sauvegarde"
.Characters.Text = "Avez-vous terminé ?"
.Name = "Button 1"
End With
...
...
ActiveSheet.Shapes("Button 1").Cut