Sub Essai()
Dim Compteur As Long, Compteur2 As Integer
For Compteur2 = 1 To WorksheetFunction.Min(ActiveWorkbook.Worksheets.Count, 12)
With Sheets(Compteur2)
.Range('A2:G2').Interior.ColorIndex = 6
For Compteur = 3 To .Range('A65536').End(xlUp).Row
If .Cells(Compteur, 7).Value = .Range('G2').Value Then
If .Cells(Compteur, 1).Value = .Range('A2').Value And .Cells(Compteur, 2).Value = .Range('B2').Value And _
.Cells(Compteur, 3).Value = .Range('C2').Value And .Cells(Compteur, 4).Value = .Range('D2').Value And _
.Cells(Compteur, 5).Value = .Range('E2').Value And .Cells(Compteur, 6).Value = .Range('F2').Value Then
.Range(.Cells(Compteur, 1).Address & ':' & .Cells(Compteur, 7).Address).Interior.ColorIndex = 6
Else
.Range(.Cells(Compteur, 1).Address & ':' & .Cells(Compteur, 7).Address).Interior.ColorIndex = 3
End If
End If
Next Compteur
End With
Next Compteur2
End Sub