Mise en forme conditionnelle > à trois critères

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F15:F358")) Is Nothing Then
With Target.Interior
.ColorIndex = Switch(Target.Value = "e", 8, _
Target.Value = "b", 4, _
Target.Value = "c", 38, _
Target.Value = "a", 18, _
Target.Value = "p", 17, _
Target.Value = "", -4142)
End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F15:F358")) Is Nothing Then
With Target
.Interior.ColorIndex = _
Switch(.Value = "e", 8, .Value = "b", 4, _
.Value = "c", 38, .Value = "a", 18, _
.Value = "p", 17, .Value = "", -4142)
End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [BA8:BA370]) Is Nothing And Target.Count = 1 Then
    If Left(UCase(Target), 1) = "T" Then
        Target.Offset(0, CInt(Right(Target, 2)) - 51).Interior.ColorIndex = 6
    End If
End If
If Not Intersect(Target, [BB8:BB370]) Is Nothing And Target.Count = 1 Then
    If Left(UCase(Target), 1) = "T" Then
        Target.Offset(0, CInt(Right(Target, 2)) - 52).Interior.ColorIndex = 4
    End If
End If
If Not Intersect(Target, [BC8:BC370]) Is Nothing And Target.Count = 1 Then
    If Left(UCase(Target), 1) = "T" Then
        Target.Offset(0, CInt(Right(Target, 2)) - 53).Interior.ColorIndex = 6
    End If
End If
If Not Intersect(Target, [BD8:BD370]) Is Nothing And Target.Count = 1 Then
    If Left(UCase(Target), 1) = "T" Then
        Target.Offset(0, CInt(Right(Target, 2)) - 54).Interior.ColorIndex = 4
    End If
End If
End Sub