somme de cellules d'un classeur selon couleur d'onglet

For i = 1 To Sheets.Count
    If Sheets(i).Tab.ColorIndex = 8 Then
        'ton code
    End If
Next i

Sub CalcOngletsCouleur()
Dim i As Integer, J As Integer
Dim cell As Range
Dim ws As Worksheet

Set ws = Sheets("0Stat")
' commence à la 5 eme feuille car mes 4 premières sont des feuilles de sommaire et
' d'information dont l'onglet n'est pas coloriés
For i = 5 To Sheets.Count
If Sheets(i).Tab.ColorIndex = 8 Then
    ws.Cells(bb1).Value = somme("F7:F500")
    ws.Cells(bb2).Value = somme("G7:G500")
    ws.Cells(bb3).Value = cell(b1).Value
Exit For
End If
Next i
End Sub