Simplifier Code

Bonjour

J'ai un code pour insérer des boutons avec leur code. Est-il possible de simplifier mon code?

  'Inserer un bouton1 avec code
ActiveSheet.Buttons.Add(210, 30, 90, 20).Select  ' Left, Top, Hauteur, Largeur
Selection.OnAction = "ListeTexteShapes_3"
Selection.Characters.Text = "List Groupe Pays"

'Inserer un bouton2 avec code
ActiveSheet.Buttons.Add(210, 60, 90, 20).Select  ' Left, Top, Hauteur, Largeur
Selection.OnAction = "Grouper"
Selection.Characters.Text = "Grouper"

'Inserer un bouton3 avec code
ActiveSheet.Buttons.Add(210, 90, 90, 20).Select  ' Left, Top, Hauteur, Largeur
Selection.OnAction = "Degrouper"
Selection.Characters.Text = "DéGrouper"

'Inserer un bouton4 avec code
ActiveSheet.Buttons.Add(210, 120, 90, 20).Select  ' Left, Top, Hauteur, Largeur
Selection.OnAction = "GrouperZT"
Selection.Characters.Text = "Grouper-ZT"

'Inserer un bouton5 avec code
ActiveSheet.Buttons.Add(210, 150, 90, 20).Select  ' Left, Top, Hauteur, Largeur
Selection.OnAction = "DegrouperZT"
Selection.Characters.Text = "DéGrouper-ZT"

'Inserer un bouton6 avec code
ActiveSheet.Buttons.Add(210, 180, 90, 20).Select  ' Left, Top, Hauteur, Largeur
Selection.OnAction = "TousGrouper"
Selection.Characters.Text = "Tous Grouper"

Merci d'avance

Cordialement

Max

Bonjour,

peut-être simplifié en le supprimant carrément : suffit d'enregistrer le classeur avec les boutons !