Compter les cellules écrites en rouge

• Ton fichier est en xlsm, mais ne contient aucune macro !
• Tu as 2 règles de Mise en Forme Conditionnelle, mais les formules concernent les lignes 108 & 113 !
• Tu as mis tes couleurs manuellement en D3 et F5 ... Si tu avais utilisé une règle de MFC, on aurait pu s'en servir ... Là, tu seras obligé d'écrire un code VBA pour disposer d'une macro !

Sub X_Rouge()
Dim Lig As Range, Col As Range
    For Each Lig In Range("B3:F8").Rows
        For Each Col In Range("B3:F8").Columns
            If Cells(Lig.Row, Col.Column).Font.Color = 255 Then
                Cells(Lig.Row, 8) = "X"
                Exit For
            End If
        Next Col
    Next Lig
End Sub