Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Target.Cells.Count = 1 Then
Application.EnableEvents = False
Dim TT As Integer, I As Integer, x As Integer
x = IIf(Target.Column > 6, 5, Application.Max(2, Target.Column - 6))
For I = 1 To x
' ----------autorise "p" ou "P"
If Ucase(Target.Offset(0, -I)) = "P" Then TT = TT + 1
Next
'End
If TT >= 5 Then Target.Offset(0, 1) = "R": Target.Offset(0, 1).Interior.Color = vbRed
End If
Application.EnableEvents = True
End Sub