Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$6" Then
If Target.Value = "" Then Exit Sub
If Target.Value < [I6] Or Target.Value > [H6] Then
MsgBox "erreur date"
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = 15
End If
End If
End Sub