Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
lig = Target.Row
Set plage = Range(Range("b" & lig), Range("h" & lig)).Interior
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
Select Case Target
Case "G": plage.Color = 255
Case "N": Range(Range("k" & lig), Range("p" & lig)).Interior.Color = 12345 ' couleur au hasard
Case 2: plage.Color = 5296274
Case 3: plage.Color = 15773696
Case Else: plage.Pattern = xlNone
End Select
End If
End Sub