VBA EXCEL : problème de "FIND" et range

Bonjour,


Je monte actuelement une requete dans laquel je dois selectionner une cellule contenant une variable ( dans le cas présent, c'est une date)

J'utilise donc une méthode find pour trouvé la celulle correspondante :

[quote]
Sub test()


Dim cellule As Range
Dim datejour As String


datejour = Workbooks("stocks_2009_11.xls").Sheets("UNE").Range("B8")

Set cellule = Sheets("stocks").Range("A1:N1").Find(what:=datejour)

Range(cellule).Select

End Sub
[/quote]

je n'arrive pas a selectionner la cellule, car la variable "Cellule" contient la date recherché, et pas les coordonnées de la cellule.
Avez-vous une idée pour que la fonction "Find", je ramene les coordonnées de la cellule?

merci d'avance