VBA AddOLEObject prob activer bouton créé

[PHILIMAR]

Je crée un bouton dans une feuille EXCEL, mais ce bouton n'est pas activé. Je ne vois pas ses propriété en mode "Création de contrôles ActiveX".

Code :
Set myDocument = Sheets(ShtNam)
Set s_New = myDocument.Shapes.AddOLEObject _
(Left:=VarLeft, Top:=VarTop, Width:=VarWidth, Height:=VarHeight, _
ClassType:="Forms.CommandButton.1")
With s_New
.Visible = True
.Name = "BoutonTest1"
End With

NomBouton = s_New.Name

myDocument.OLEObjects(NomBouton).Object.Caption = VarCaption
myDocument.OLEObjects(NomBouton).Object.ForeColor = VarForeColor
myDocument.OLEObjects(NomBouton).Object.BackColor = VarBackColor
myDocument.OLEObjects(NomBouton).Object.Font.Name = VarFontName
myDocument.OLEObjects(NomBouton).Object.Font.Size = VarFontSize
myDocument.OLEObjects(NomBouton).Activate