Sub colorer()
Set f1 = Sheets("Feuil1")
Set f2 = Sheets("Feuil2")
derligne = f2.Range("a65000").End(xlUp).Row
For Each c In f2.Range("a3:a" & derligne)
If f1.[H6] > c.Offset(, 1) And f1.[H7] > c.Offset(, 2) Then
c.Interior.ColorIndex = 3 'rouge
ElseIf f1.[H6] > c.Offset(, 1) Then c.Interior.ColorIndex = 46 'orange
ElseIf f1.[H7] > c.Offset(, 2) Then c.Interior.ColorIndex = 6 'jaune
End If
Next c
End Sub