Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C3:BA80")) Is Nothing Then
jour = Cells(2, Target.Column).Value
If Date > jour Then
MsgBox ("Vous ne pouvez pas revenir à une date précedente")
[A1].Select
Exit Sub
End If
End If
End Subb