Bonjour. Bienvenue sur le Forum
Code de Feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
If Target = 1 Then
Range(Target.Offset(0, 1), Target.Offset(0, 4)).Interior.ColorIndex = 4
ElseIf Target = 2 Then
Range(Target.Offset(0, 1), Target.Offset(0, 4)).Interior.ColorIndex = 45
ElseIf Target = 3 Then
Range(Target.Offset(0, 1), Target.Offset(0, 4)).Interior.ColorIndex = 5
ElseIf Target = 4 Then
Range(Target.Offset(0, 1), Target.Offset(0, 4)).Interior.ColorIndex = 13
End If
End If
End Sub
Cordialement