Sub MyButton()
Dim Bouton As OLEObject
Dim Target As Range
Dim MyWidth As Integer, MyHeight As Integer
MyWidth = 150
MyHeight = 25
Set Target = ActiveCell
Set Bouton = ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Left:=Target.Left, Top:=Target.Top, Width:=MyWidth, Height:=MyHeight)
With Bouton
.Name = 'MyButton'
With .Object
With .Font
.Name = 'Arial'
.Size = 8
End With
.Caption = 'Hello XLD'
End With
End With
End Sub