Bonjour Blackzom, bonjour le forum,
Comme il y a plusieurs vert et plusieurs rouge il faudra peut-être adapter le code :
Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim CEL As Range
Set O = Worksheets("Feuil1")
Set PL = O.Range("G1:L50")
For Each CEL In PL
If CEL.Interior.ColorIndex = 4 Then CEL.Interior.ColorIndex = 3
Next CEL
End Sub