Bonjour superfrancois
Au lieu de nous dire "Bah, ça marche plus" il serait bien d'indiquer quel est l'erreur et ou elle se situe...
Bon, sinon en exécutant le code en mode débogage (F8) on voit que le problème est sur cette ligne
Set cell = Range("Tableau3[Date]").Find(What:=Range("E1").Value)
Et c'est normal !
VBA est un langage orienté objets et vous ne mettez pas vos objets conteneurs dans la ligne
Essayez
Set cell = Sheets("Résumé journalier").Range("Tableau3[Date]").Find(What:=Sheets("Calcul").Range("E1").Value)
Et vous verrez...