Bonjour Philou,
Essayes avec cette syntaxe :
Dim MyButton As Object, YourButton As Object
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = 'C'
With Sheets('C')
.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False, DisplayAsIcon:=False, Left:=78, Top:=21.75, Width:=161.25, Height:=75).Select
Set MyButton = .Shapes('CommandButton1')
End With
With Sheets('C')
.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False, DisplayAsIcon:=False, Left:=301.5, Top:=24.75, Width:=177.75, Height:=71.25).Select
Set YourButton = .Shapes('CommandButton2')
End With
Cordialement
Bernard