Compter les cellules en vert

Const clVert = 35
Const plage = "A1:A10"

Private Sub CommandButton1_Click()
Dim c As Range, nbv As Long
nbv = 0
For Each c In Range(plage)
  If c.Interior.ColorIndex = clVert Then nbv = nbv + 1
Next
MsgBox nbv
End Sub

Function NombreSiVert(Plage As Range) As Integer
Dim Cel As Range

For Each Cel In Plage
    If Cel.Interior.ColorIndex = 10 Then NombreSiVert = NombreSiVert + 1
Next
End Function

Public Function Quelle_Couleur_Fond(Cel As Range) As Long 
     Application.Volatile 
     Quelle_Couleur_Fond = Cel.Interior.ColorIndex 
End Function

Function NombreSiVert(Plage As Range) As Integer
Dim Cel As Range
Application.Volatile
For Each Cel In Plage
    If Cel.Interior.ColorIndex = 10 Then NombreSiVert = NombreSiVert + 1
Next
End Function