Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig1 As Long
choix = Target.Text
Select Case choix
Case Is = "EN COURS"
Target.Interior.Color = RGB(0, 254, 84)
Target.Font.ColorIndex = 1
Case Is = "STANDBY"
Target.Interior.Color = RGB(0, 232, 254)
Target.Font.ColorIndex = 1
Case Is = "PREPARATION"
Target.Interior.Color = RGB(254, 234, 192)
Target.Font.ColorIndex = 1
Case Is = "SOLDEE"
Target.Interior.Color = RGB(254, 126, 0)
Target.Font.ColorIndex = 1
End Select
End Sub