Problème sur mise en forme conditionnelle VBA

Bonjour,
Je suis en train de faire une grille excel pour automatiser un calcul des besoins (de type MRP), mes besoins générés ont une mise en forme automatique (besoin = couleur de fond rouge).

en parallèle, j'ai récupéré sur le net une macro qui identifie les cellules d'un tableau ayant une couleur de remplissage.

le hic : ça en marche pas. j'explique, quand je rempli moi même une case en remplissage rouge : ça marche
mais quand je rouge viens en mise en forme automatique : ça marche pas.

il y a peut etre une fonction qui détecte les mises en forme en VBA mais je ne la connais pas.

bref, voici le code de la macro si quelqu'un pouvait m'aidé ou si quelqu'un était confronté à un problème du même genre...

Sub CompteCouleurs()
    Dim rngCell         As Range
    Dim intNbCouleurs   As Integer
    
    For Each rngCell In Range("A1:G30").Cells
        If rngCell.Interior.ColorIndex = 3 Then
            intNbCouleurs = intNbCouleurs + 1
        End If
    Next
    MsgBox intNbCouleurs & " cellules rouges"
End Sub

Merci