Message d'alerte de la date d'échéance

Bonjour,

voila je suis entrain de faire une macro qui renvoi un message pour m'alerter en cas d'approche de la date d'échéance une action. sauf que ma macro ne prends en compte que le nombre de jours que je lui donné à savoir moi je lui demandé de m'avertir 20 jours avant la date d'échéance. et donc elle prends en compte que la date qui a une marge de 20 et pas moins (genrs 19 ou 18 etc...)et moi ce que je veux c'est ça. pour mieux comprendre voici ce que j'ai fais.

Sub ouvrir_classeur()
Dim dt As Range
Dim Ws As Worksheet
Set Ws = Worksheet ("classeur1")
For Each Dt In Ws.Range ("x:x")
If Dt =(Date + 20) And dt <> "" Then _
MsgBox "La date arrive à échéance"&_
vbExclamation,"suivre l'action"
Next Dt
With ActiveWindow
.DisplayHeading = False
.DisplayWorkbookTabs = False
End With
End sub

voila, Merci de m'aider avec vos conseils et vos expériences