Compter des boutons excel

Option Explicit
Const vert& = &HFF00&
Const rouge& = &HFF&

Private Sub CommandButton4_Click()
Dim nbR As Integer
Dim nbV As Integer
  nbV = CompteBoutons(vert)
  nbR = CompteBoutons(rouge)
  MsgBox nbV & " Boutons verts" & vbCrLf & _
         nbR & " Boutons rouges"
End Sub

Private Function CompteBoutons(Couleur As Long) As Integer
Dim obj As OLEObject              'Objet OLE de la feuille
Dim btn As MSForms.CommandButton  'Bouton
Dim n As Integer
  
  For Each obj In Me.OLEObjects
    If TypeName(obj.Object) = "CommandButton" Then
      Set btn = obj.Object
      If btn.BackColor = Couleur Then n = n + 1
    End If
  Next obj
  CompteBoutons = n

End Function