Comparer dates et effectuer procédure

Bonjour,

Ne connaissant pas grand chose à VBA, je m'en remets à vous pour effectuer une action sur les dates :
je voudrai comparer une colonne de dates à la date d'aujourd'hui, et renvoyer un mot dans la colonne suivante si la date de la colonne en question - 15 jours est inférieure ou égale à celle d'aujourd'hui.

J'ai essayé de faire un programme mais ça ne marche pas. Voici ce que j'avais écrit :

Sub procédurerappel()
j = 1
For j = 1 To j = xldown
Dim d As Date
d = Cells(j, 5).Value
If DateAdd("d", -15, d) <= Now() Then
Cells(j, 6).Value = "RAPPEL"
End If
Next j

End Sub



Merci pour votre aide !