Private Sub Worksheet_Change(ByVal Target As Range)
Dim couleur As Byte
If Not Application.Intersect(Target, Range('b5:l13')) Is Nothing Then
Select Case UCase(Target.Text)
Case 'P': couleur = 31
Case 'C': couleur = 32
Case 'I': couleur = 33
Case 'E': couleur = 34
Case 'D': couleur = 35
End Select
Target.Interior.ColorIndex = couleur
End If
End Sub