Dim x As Long
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Not Intersect(Target, Range("E23:G999")) Is Nothing Then
For Each Cel In Intersect(Target, Range("E23:G999"))
If Not (Range("E" & Cel.Row) = "" Or Range("F" & Cel.Row) = "" Or Range("G" & Cel.Row) = "") Then
With Range("H" & Cel.Row)
If (Not .Value = "" And (.Value < Range("T4").Value Or .Value > Range("T3").Value)) Or Not .Offset(0, 1).Value = "" Then
Do
If x = 4 Then MsgBox " 4 tentatives autorisées!! pas plus !!!!!": x = 0: Exit Sub
x = x + 1
ActiveSheet.Unprotect ("2230")
.Offset(0, 1).Value = InputBox(Prompt:="ATTENTION :" & Chr(13) & Chr(10) & "Valeur non-conforme" & Chr(13) & Chr(10) & "Un commentaire est requis", Default:=" ")
ActiveSheet.Protect ("2230")
Loop Until (.Offset(0, 1).Value = "" And Not .Offset(0, 1).Value = "FAUX") Or (.Value >= Range("T4").Value And .Value <= Range("T3").Value)
End If
End With
End If
Next Cel
End If
End Sub