Fonction find pour trouver une date

Bonjour,

Apres avoir parcouru le forum, je suis toujours à la recherche d'une réponse au probléme suivant (désolé s'il s'avére que la réponse existe dejà quelque part).

Débutant dans l'utilisation de vba, voici ce qui me bloque.

dans un fichier excel, j'ai un "menu" à la ligne 4, figé. dans la colonne A, on trouve les dates, A5=01/01/2009, en colonnes B, C et D on renseigne différents éléments (par exemple en b on demande les anniversaires, en c les mariages et en d les naissances).
ainsi une ligne est composée d'une date en a, puis des noms des personnes pour qui c'est l'anniversaire en b, pour qui c'est le mariage etc...

ce que j'aimerai c'est que lorsque je click sur un bouton en haut de la feuille (bouton créé sur la case b2), la ligne qui apparaisse sous mon "menu" soit la ligne correspondant à la date du jour (qui est visible en c2 car alimentée par d'autres pages du classeur).

voici ce que j'ai fais, par avance désolé pour les yeux....

Sub allera()

Dim celluletrouvee As range

Set celluletrouvee = range(range("A5"), range("A5").End(xlDown)).find(range("c2"), LookAt:=xlWhole)

celluletrouvee.Select

ActiveWindow.ScrollRow = ActiveCell

End Sub

et donc ca ne fonctionne pas, puisque cellulletrouvee = nothing.

des idées ?

merci d'avance,