Sub Test_CommandButtons()
Dim btn As OLEObject, Nom$, shp As Shape
For Each btn In ActiveSheet.OLEObjects
Nom = btn.name
If btn.OLEType = xlButtonOnly And InStr(Nom, "CommandButton") > 0 Then
Set shp = ActiveSheet.Shapes(Nom)
With shp
.Height = 15: .Width = 15
With .OLEFormat.Object.Object
.BackColor = RGB(160, 78, 56): .Caption = vbNullString
End With
End With
End If
Next
End Sub