Private Sub Worksheet_Change(ByVal Target As Range)
x = Target.Row
Select Case Target.Column
Case 4
If Not IsEmpty(Target) Then Range("B" & x & ":M" & x).Interior.ColorIndex = 38
Case 10
If UCase(Target) = "OUI" Then Range("B" & x & ":M" & x).Interior.ColorIndex = 6
Case 11
If UCase(Target) = "OUI" Then Range("B" & x & ":M" & x).Interior.ColorIndex = 43
Case 12
If Not IsNumeric(Target) Then Exit Sub
If CLng(Target) > 21200 Then Range("B" & x & ":M" & x).Interior.ColorIndex = 33
Case 13
If UCase(Target) = "FACTURÉ" Then Range("B" & x & ":M" & x).Interior.ColorIndex = 3
End Select
End Sub