Salut!
Pour la vérification, tu peux essayer:
Dim cel as Range
Dim iRow as integer
iRow = sheets("nomdelafeuille").Range("J"&rows. Count).End(xlup).row
For each cel in sheets("nomdelafeuille").range("J2:J" & iRow)
It cel.value = Dateadd("d", -4, Date) then
...