CommandBar sous VBA

Bonjour,

Je commence le VBA et je suis face à un problème.

Dans mon fichier Excel 2003, une macro crée des onglets et les rempli et je voudrais que sur chaque onglet figure un bouton sur lequel affecter une macro.

Mon code est le suivant mais ne fonctionne pas, quelqu'un pourrait-il me le décoder

Sub Bouton()
'
' Bouton Macro
' Création du bouton
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=5.25, Top:=46.5, Width:=48.75, Height:= _
39).Select
Selection.Locked = False
Selection.Name = "Retour"
Selection.Caption = "Retour"
End Sub

Private Sub Retour_Click()
ActiveSheets.Visible = False
Sheets("Requêtes").Select
End Sub

Merci d'avance