Sub FindDate()
'vieux code issu de mes archives poussiéreuses ;-)
Dim strdate$, rCell As Range
strdate = Format(Date, "Short Date")
On Error Resume Next
Set rCell = Cells.Find(What:=CDate(strdate), _
After:=Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
rCell.Select: MsgBox "La date du jour ce trouve en: " & rCell.Address(0, 0), vbInformation, "Résultat"
On Error GoTo 0
If rCell Is Nothing Then
MsgBox "Date introuvable!", vbCritical, "Erreur"
End If
End Sub