re,
en bidouillant ... peut être pas très académique j'ai trouvé !!
dites moi ce que vous en pensez !
merci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D10:F13, D15:F15, D21:F21, D24:F24, D26:F26, C31:C32, I22:K22, H33")) Is Nothing Then
jour = Cells(14, 14).Value
If Date > jour Then
MsgBox ("La date limite de saisie des éléments est dépassée")
[A1].Select
Exit Sub
End If
End If
End Sub