Dans le code de la feuille, tu as une macro événementielle te permettant de faire ce que tu demandes. Tu as dû rajouter une colonne sans modifier la macro, donc il faut modifier comme ça :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns(5)) Is Nothing Then Exit Sub
If Target - Date > Cells(18, 10) Then Cells(Target.Row, 7) = ""
End Sub