Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
' Enlever la couleur dans la cellule
Range("G" & Target.Row).Interior.ColorIndex = xlNone
' Pour chaque cellule entre B1 et E1
For Each cell In Range("B1:E1")
' Si la valeur de la colonne G et ligne sélectionnée correspond à une valeur entre B1 et E1
If cell.Value = Range("G" & Target.Row) Then
' Positionner la couleur
Range("G" & Target.Row).Interior.ColorIndex = cell.Interior.ColorIndex
Exit For
End If
Next cell
End Sub