Excel : tester la couleur dans formule

Public Function M_Cellule(Target As Range) As Variant
    Application.Volatile
    Dim tablo(1 To 10) As Variant
    tablo(1) = Target.Font.Bold
    tablo(2) = Target.Font.ColorIndex
    tablo(3) = Target.Font.FontStyle
    tablo(4) = Target.Font.Italic
    tablo(5) = Target.Font.Strikethrough
    tablo(6) = Target.Font.Underline
    tablo(7) = Target.Interior.ColorIndex
    tablo(8) = Target.Interior.Pattern
    tablo(9) = Target.Interior.PatternColorIndex
    tablo(10) = Target.NumberFormat
    M_Cellule = tablo
End Function

Public Function M_Format(ByVal gw_typ As Integer, plage As Range, Optional feuilles As String = "") As Variant
    Dim gw_c As Range, i As Long, j As Integer
    Dim  tablo() As Variant, maplage As Range
    Dim feuille1 As String, feuille2 As String
    Application.Volatile
    If gw_typ < 1 Or gw_typ > 10 Then trg_mfc_plage = "#ERREUR": Exit Function
    i = -1
    If feuilles = "" Then feuilles = ActiveSheet.Name & ":" & ActiveSheet.Name
    feuille1 = Left(feuilles, InStr(feuilles, ":") - 1)
    feuille2 = Right(feuilles, Len(feuilles) - InStr(feuilles, ":"))
    For j = ActiveWorkbook.Sheets(feuille1).Index To ActiveWorkbook.Sheets(feuille2).Index
        Set maplage = ActiveWorkbook.Sheets(j).Range(plage.Address)
        For Each gw_c In maplage
            i = i + 1
            ReDim Preserve tablo(i)
            tablo(i) = M_Cellule(gw_c)(gw_typ)
        Next
    Next j
    M_Format = tablo
End Function

=somme(si(M_Format(2;MaPlage)=3;MaPlage;0))