Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
For Each Cellule In Target
If Cellule.Value = 1 Then
Cellule.Offset(0, 1).Interior.Color = 255
ElseIf Cellule.Value = 2 Then
Cellule.Offset(0, 1).Interior.Color = 5296274
ElseIf Cellule.Value = 3 Then
Cellule.Offset(0, 1).Interior.Color = 15773696
End If
Next Cellule
End If
End Sub