Mise en forme conditionnelle

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("D11:D" & [D65536].End(xlUp).Row + 1)) Is Nothing Then Exit Sub
  Dim C As Range
  For Each C In Range(Target.Address)
    If C.Value = "sod_list_pr" Or C.Value = "so_disc_pct" _
    Or C.Value = "sod_disc_pct" Or C.Value = "so_ship" Then
        C.Font.ColorIndex = 3
    End If
  Next
End Sub