Sub CompterCouleur()
Dim Compteur As Integer
Dim sh As Worksheet
Dim mois As String
Dim i As Integer
Dim j As Integer
Dim cell As Range
mois = "Janvier,Février,Mars,Décembre"
i = 5
For i = 5 To 14
j = 4
For j = 9 To 18
Compteur = 0
For Each sh In Worksheets
If InStr(mois, sh.Name) > 0 Then
For Each cell In sh.Range("D9:AH19")
If cell.Interior.ColorIndex = Sheets("Bilan").Range(Cells(7, i), Cells(7, i)).Interior.ColorIndex Then
'And Cells(cell.Row, 3).Value = Sheets("Bilan").Cells(cell.Row, 4).Value Then
Compteur = Compteur + 1
End If
Next cell
End If
Next sh
Application.ScreenUpdating = False
Sheets("Bilan").Range(Cells(j, i), Cells(j, i)) = Compteur
Next j
Next i
Application.ScreenUpdating = True
End Sub