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
Sub test()
Dim x As Range
Set x = Range("2:2").Find(Date, , , xlWhole)
If Not x Is Nothing Then MsgBox "la date du jour est en " & x.Address
End Sub