XL 2016 Compter les MFC d'une feuille

Sub Elle_Est_Belle_Ma_MEFC(RetourMFC, RetourMfcHexa)
'Laurent Longre, MPFE, corrections 2003
Dim FC As FormatCondition, F1, F2
Dim c As Range, Hexa

Set c = Cells.Find(Empty)
Application.ScreenUpdating = False
For Each FC In ActiveCell.FormatConditions
    c.FormulaLocal = FC.Formula1: F1 = c
    If FC.Type = xlCellValue Then
        Select Case FC.Operator
            Case xlBetween, xlNotBetween:
                c.FormulaLocal = FC.Formula2: F2 = c
                If FC.Operator = xlBetween Then If ActiveCell >= F1 _
                    And ActiveCell <= F2 Then Exit For
                If ActiveCell < F1 Or ActiveCell > F2 Then Exit For
            Case xlEqual: If ActiveCell = F1 Then Exit For
            Case xlGreater: If ActiveCell > F1 Then Exit For
            Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
            Case xlLess: If ActiveCell < F1 Then Exit For
            Case xlLessEqual: If ActiveCell <= F1 Then Exit For
            Case xlNotEqual: If ActiveCell <> F1 Then Exit For
        End Select
    Else
        If F1 Then Exit For
    End If
Next FC
If Not FC Is Nothing Then
    RetourMFC = FC.Interior.ColorIndex
    Hexa = FC.Interior.Color
    RetourMfcHexa = "&H" & Hex$(Hexa)
'    MsgBox RetourMfcHexa
Else
    RetourMFC = ActiveCell.Interior.ColorIndex
End If
c.Clear
End Sub

Sub Compte_MFC()
Dim n#
On Error Resume Next 'si aucune SpecialCell
n = Cells.SpecialCells(xlCellTypeAllFormatConditions).CountLarge
MsgBox n
End Sub