HELP: Compter des cellules selon critères: mots et couleur

Sub Synthese()
Dim Ws As Worksheet
Dim K As Long
Dim i As Integer
Dim T
Dim Cel As Range
    With Worksheets("synthese ODJ")
        i = 4
        T = Array("ABC", "DEF", "IJK")
        Range("A4:D32").ClearContents
        For Each Ws In Worksheets
            If Ws.Name <> .Name Then
                .Range("A" & i) = Ws.Name
                .Range("B" & i) = Application.CountA(Ws.Range("C8", Ws.Range("C" & Rows.Count).End(xlUp)))
                For j = 0 To UBound(T)
                    .Range("C" & i) = .Range("C" & i) + Application.CountIf(Ws.Range("E8", Ws.Range("E" & Rows.Count).End(xlUp)), T(j))
                Next j
                For Each Cel In Ws.Range("C8", Ws.Range("C" & Rows.Count).End(xlUp))
                    If Cel.Interior.ColorIndex = 6 Then .Range("D" & i) = .Range("D" & i) + 1
                Next Cel
                i = i + 1
            End If
        Next Ws
    End With
End Sub