With Worksheets(1)
lastlig = .Range("A65000").End(xlUp).Row ' recherche derniere ligne en colonne A
For X = 3 To lastlig
For y = 2 To 6
Ad = .Cells(X, y).Address(0, 0) ' coordonnée de la cellule Lue
Colo = .Cells(X, y).FormatConditions(1).Interior.ColorIndex
' Colo = .Cells(X, y).Interior.ColorIndex
'coul = .Cells(X, y).PatternColor
'.Pattern = xlSolid
' .PatternColorIndex = xlAutomatic
' donne la couleur de fond
If Colo = 36 Then ' jaune=36
Range("H" & X).Value = Range("H" & X).Value + 1
End If
If Colo = 35 Then ' vert=35
Range("I" & X).Value = Range("I" & X).Value + 1
End If
If Colo = 37 Then ' Bleu ciel=37
Range("J" & X).Value = Range("J" & X).Value + 1
End If
If Colo = 40 Then ' Orange=40
Range("K" & X).Value = Range("K" & X).Value + 1
End If
Next y
Next X
End With