Rechercher une date dans une feuille excel

pas eu le courage de chercher avec les fonctions Excel, alors voici une fonction en VBA qui renvoie la date trouvée la plus proche de la date système dans la plage spécifiée :

Function RECHERCHEDATE(Plage As Range) As Variant
Dim Cel As Range, Valeur, LaDate
LaDate = Date
Valeur = LaDate
For Each Cel In Plage
If Abs(Cel.Value - LaDate) <= Valeur Then
Valeur = Abs(Cel.Value - LaDate)
RECHERCHEDATE = Cel.Value
End If
Next Cel
End Function

exemple d'utilisation : =recherchedate(Feuil1!A1:A47)
Pour avoir un affichage correct, tu dois mettre ta cellule au format Date

Merci beaucoup ca marche tres bien