Sub MFC()
Application.ScreenUpdating = False
For Col = 3 To 10 ' Toutes les colonnes
For Lig = 2 To [A65500].End(xlUp).Row ' Toutes les lignes
If Cells(Lig, Col) = Cells(Lig, Col + 28) Then
Cells(Lig, Col).Interior.Color = RGB(150, 200, 80) ' Si = alors Vert
ElseIf Cells(Lig, Col) < Cells(Lig, Col + 28) Then
Cells(Lig, Col).Interior.Color = RGB(255, 200, 0) ' Si < alors Orange
Else
Cells(Lig, Col).Interior.Color = RGB(255, 0, 0) ' Sinon Rouge
End If
Next Lig
Next Col
End Sub
Sub RazColor()
Range("C2:J" &...