Sub décors()
ThisWorkbook.Activate
Sheets("Feuil1").Activate
'Création d'un bouton Banane situé à 100, 100 de largeur 90 et de hauteur 20, Macro = Formulaire
CreationBouton "Banane", 130, 100, 90, 20, "Formulaire"
CreationBouton "Pomme", 130, 150, 90, 20, "Formulaire2"
End Sub