changer la couleur d'une case suivant les données d'une autre case ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range 'déclare la variable r (Recherche)
 
If Target.Column = 2 And Target.Row > 1 Then 'condition 1 : si le changement a lieu dans la colonne 2 et à partir de la seconde ligne
    'définit la recherche r (recherche la valeur éditée dans la colonne G)
    Set r = Range("G1:G" & Range("G65536").End(xlUp).Row).Find(Target, , xlValues, xlWhole)
    If Not r Is Nothing Then 'condition 2 : si il existe au moins une occurrence trouvée
        Target.Offset(0, -1).Interior.ColorIndex = r.Interior.ColorIndex 'récupère la couleur
    Else 'sinon
        Target.Offset(0, -1).Interior.ColorIndex = xlNone 'supprime la couleur
    End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub