Dim Obj As OLEObject
Dim objFeuille As Object
Set Obj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=80, _
Top:=10, Width:=100, Height:=30)
Obj.Name = "CommandButton1"
'
'...
'
Set objFeuille = ActiveSheet
objFeuille.CommandButton1.Caption = "tutu"