Vba excel fonction find

Bonjour,

Dans la ligne 1 de la feuile 1 j'ai mis de dates de la colonne "A3 à la colonne "H".
J'essaie de voir si la date 01/12/2016 s'y trouve avec la macro ci-dessous.
Mais j'ai l'erreur 91 : erreur Variabe objet ou variable with not definie.
Merci de votre réponse !

Code :

Sub yyy()

Dim jour As Date
Dim trouve As Range

jour = DateSerial(2016, 12, 1)
trouve = Sheets("Feuil1").Range("A1:H1").Cells.Find(what:=jour, LookAt:=xlWhole)
If trouve Is Nothing Then
MsgBox "trouve is nothing"
Else
MsgBox "trouvé !"
End If

End Sub