Colorier Cellule d'une plage suivant une autre

Hello,

Je souhaite utiliser faire évoluer la macro suivante avec les regles ci-dessus :

Si sur la Plage 1, les cellules sont coloriés en Roug(R = 7434751)ou Orange (O = 494007)

Alors Colorier en Plage 2 les cellules correspondantes en Vert (G = 65280)

Sauf pour toute les cellules Rouge ou Orange en Plage 2

Pourriez vous m'aider ? Merci

Sub MR()
Dim rng As Range, rng2 As Range, i As Long
Const R = 7434751, O = 494007, G = 65280

    Application.ScreenUpdating = False

    Set rng = Range("plage_1")
    Set rng2 = Range("plage_2")

    For i = 1 To rng.Count
        If rng(i).Interior.Color = R Then
            If rng2(i).Interior.Color <> R Then
                With rng2(i)
                    .Interior.Color = G
                    With .Borders
                        .Weight = xlThick
                        .LineStyle = xlGray75
                    End With
                End With
            End If
        End If

End Sub

Bonjour,

Voici un essai d'adaptation si j'ai compris :

Sub MR()

Dim rng As Range, rng2 As Range, i As Long

Const R = 7434751, O = 494007, G = 65280
Set rng = Range("plage_1")
Set rng2 = Range("plage_2")

Application.ScreenUpdating = False
For i = 1 To rng.Count
    with rng2(i)
        if .Interior.Color <> R and .Interior.Color <> O Then
            If rng(i).Interior.Color = R or rng(i).Interior.Color = O Then
                .Interior.Color = G
                With .Borders
                    .Weight = xlThick
                    .LineStyle = xlGray75
                End With
            End if
        End If
    End with
next i
application.screenupdating = true

End Sub

Cdlt,

C'est parfait

merci beaucoup