dim ligne as long, cel as range, flag as boolean
ligne = 2
flag = false
for each cel in range("F" & ligne & ":IV" & ligne)
if cel.value = date then flag = true : exit for
next
if flag = true then ' La date a été trouvée
' Faire ton tratement sur cel qui est la cellule ou est la date
end if