Bonjour,
Voici un essai avec ce code à placer dans le module de la feuille concernée :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E3:E30")) Is Nothing Then
If Range("C4") < Date Then Range("C4") = Date
End If
End Sub
Cdlt,