' J'ai créé trois boutons sur une feuille et un de ces boutons a cette macro
' qui va colorier tous les boutons avec la même couleur
Private Sub CommandButton3_Click()
Dim cmbBouton As Byte
For cmbBouton = 1 To Worksheets('Feuil1').Shapes.Count
Worksheets('Feuil1').Shapes(cmbBouton).DrawingObject.Object.BackColor = 200
Next cmbBouton
End Sub