Re-,
après essai de ton code, il me semble que ce que je t'ai proposé est exactement la même chose, en bien plus simple, et fiable
tu n'as que un fichier à exporter?
avec les données désirées dans ton fichier de récapitulation?
Le filtre élaboré est bien le plus simple
enfin, si tu veux vraiment utiliser ton code, (pas la peine d'utiliser un semi-remorque pour écraser une mouche
)il faut quelques modifications.
tout d'abord, pourquoi chercher le nombre de fichier appelé RECAP.xls, il ne peut y avoir qu'un, donc X aura toujours la valeur 1, ce qui fait que ta boucle ne fera qu'un tour, et n'exportera qu'une ligne.
Il faut donc calculer le nombre de cellules remplies dans ton fichier initial
ensuite, tu insères des formules, pourquoi pas les valeurs directement?
Enfin, tes formules insérées comportent une erreur :
.Cells(Y, 1).Formula = "='
C:\[" & Tableau(X) & "]Feuille1" & "'!" & "A" & N
Pas besoin de donner la racine, tu l'as déjà dans Direction, tu peux supprimer C:\.