VBA : dysfonctionnement fonction Find : Excel ne trouve pas des valeurs

Bonjour,
J'ai réalisé une macro qui copie des séries de données de fichiers volumineux dans de nombreux fichiers. Dans ce programme j'utilise la fonction Find à deux reprises :
Une première fois pour identifier un numéro de série, et ses valeurs associées (que je veux copier) ainsi que sa date(qui me permet de me positionner dans le fichier de destination).
La deuxième fois pour retrouver la date dans un des nombreux fichiers, et coller les valeurs à côté.

Je précise que les fichiers Excel où la recherche de la date est réalisée font 500 000 Lignes. Cela marche sur des fichiers mais pas d'autres donc je suppose que la taille des fichiers n'a pas d'influence sur la fonction recherche.

Avez-vous des idées ou des pistes de solutions ? J'ai cherché sur divers forums mais ne trouve pas d'indications me permettant d'avancer.

Voici l'extrait de mon code qui a fonctionné mais qui je fonctionne plus :
Dans ce code, l'erreur est générée sur la ligne : "b = d.Row"

"Erreur 91 : Variable Objet ou variable de bloc with non définie."

Je précise que :
-Je n'utilise pas la fonction with (dans mon programme entier)
-J'ai bien déclaré "dim d as range".
-Cet extrait de code est compris dans un boucle qui se répète à 13 reprises.
-Je suis sur Excel 2010

Set fichier = Application.Workbooks.Open(ChemintracésR50 & "Suivi facturation - " & Codechantier & " - " & Nomchantier & ".xlsx")
'Trouver la date la feuille de la courbe de charge
Sheets("Courbes de charges - Enedis").Activate

'Identifier et sélectionner les cellules de destination
'Recherche la date du relevé dans la colonne A
Set d = Range("A:A").Find(what:=Date_mesure, LookIn:=xlValues, lookat:=xlWhole)

'Affectation des coordonnées de la cellule contenant la date aux variables a et b
MsgBox i
a = 1  'numéro de colonne de la date
b = d.Row 'Numéro de ligne
e = a + 2 'numéro de colonne des valeurs
'activer la cellule de destination pour pouvoir coller les données
Cells(b, e).Activate
'Colle les valeurs
Selection.PasteSpecial
'Enregistre le fichier du site
fichier.Save
'Ferme le fichier du site
fichier.Close