Private Sub Worksheet_Change(ByVal Target As Range)
' Stop
If flag = 1 Then Exit Sub
derligne = Sheets("Registre").Range("A65530").End(xlUp).Row
If Not Application.Intersect(Target, Range("A2:J" & derligne)) Is Nothing Then
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Or Cells(Target.Row, 3) = "" Or Cells(Target.Row, 4) = "" Then Exit Sub
If Cells(Target.Row, 5) = "" Or Cells(Target.Row, 6) = "" Or Cells(Target.Row, 7) = "" Then Exit Sub
'a = CDec(Cells(Target.Row, 4)): b = CDec(Cells(Target.Row, 5))
[B]If CDec(CDate(Cells(Target.Row, 4))) >= CDec(CDate(Cells(Target.Row, 5))) [/B]Then MsgBox "Dates incohérentes": Target.Value = "": Exit Sub
Sheets("Visuel").Unprotect ("picott")
Call essai
End If
If Not Application.Intersect(Target, Range("M3:N11")) Is Nothing Then
Call controle_dates
End If
Exit Sub
Sheets("Visuel").Protect ("picott")
End Sub