CompteCouleurFond SI la valeur de la cellule est > à 6,50

Function CompareCouleur(champ As Range, cellule As Range)
Dim coul&, t, u, i&, j%
Application.Volatile
coul = cellule.Interior.Color
If champ.Count = 1 Then
  CompareCouleur = -(champ.Interior.Color = coul)
Else
  t = champ 'matrice
  u = UBound(t, 2)
  For i = 1 To UBound(t)
    For j = 1 To u
      t(i, j) = -(champ(i, j).Interior.Color = coul)
    Next
  Next
  CompareCouleur = t
End If
End Function

=SOMMEPROD(ESTNUM(G25:R34)*(G25:R34>=6,5);CompareCouleur(G25:R34;G35)+CompareCouleur(G25:R34;I35))