Microsoft 365 Calculer les valeurs des cellules selon la couleurs de fond en VBA. Donc automatiquement

Function ColourCount(cel As Range, ran As Range) As Long
    Dim colo As Long
    Dim c As Range
    Dim cou As Long
    colo = cel.Interior.ColorIndex
    For Each c In ran
        If ran.Parent.Evaluate("DColorIndex(" & c.Address & ")") = colo Then
            cou = cou + 1
        End If
    Next c
    ColourCount = cou
End Function
Function ColourSum(cel As Range, ran As Range) As Double
    Dim colo As Long
    Dim c As Range
    Dim colsum As Double
    colo = cel.Interior.ColorIndex
    For Each c In ran
        If ran.Parent.Evaluate("DColorIndex(" & c.Address & ")") = colo Then
            colsum = colsum + c.Value
        End If
    Next c
    ColourSum = colsum
End Function
Function DColorIndex(r As Range) As Long
    DColorIndex = r.DisplayFormat.Interior.ColorIndex
End Function
'crédits : Hans Vogelaar

Function ColourCount(cel As Range, ran As Range) As Long
Dim colo&, cou&, c As Range
Application.Volatile
colo = cel.Interior.ColorIndex
    For Each c In ran
        If ran.Parent.Evaluate("DColorIndex(" & c.Address & ")") = colo Then
            cou = cou + 1
        End If
    Next c
ColourCount = cou
End Function