Trouver une date par methode find

[néné06]

Bonjour àtoutes et à tous.

Je recherche le moyen de connaitre en X par X(Row), le numero de ligne d'une date recherché dans la colonne A.

J'ai placé cette formule qui ne fonctionne pas.
Dim fin As Integer
Dim deb As Integer
Dim X As Range
Set X = Sheets("ecritures").Range("A:A").Find(Sheets("Feuil1").Cells(4, 5), , xlValues, xlWhole, , , False)
If Not X Is Nothing Then
deb = (X.Row)
End If
Elle fonctionne pour du texte mais pas pour les dates.
Il doit manquer quelque chose, mais quoi??

Merci pour l'aide apportée!!

 

[néné06]

Re : Trouver une date par methode find

Excusez moi , une discussion similaire est présente sur le Forum.
A+