Merci pour ton aide....
Tu m'as mis sur la bonne piste et j'ai finalement trouvé : j'essayais d'effacer le nom "TEST" alors qu'il fallait que je précise FEUILLE1!TEST.
Par contre, j'ai un autre problème : j'utilise dans une sub la fonction QueryTables.Add
Pour le paramètre DBQ, j'utilise ActiveWorkbook.Path
pour le paramètre DefaultDir, j'utilise ActiveWorkbook.FullName.
Ca marche, mais parfois (et seulement parfois), en particulier lorsque je copie mon fichier sur certains ordinateurs, il ne trouve pas le fichier de données et fait apparaître la fenêtre de recherche....
Je ne comprend pas pourquoi, et surtout pourquoi cette anomalie ne se produit que parfois et pas toujours.
Merci encore
Philippe