Merci beaucoup pour ta réponse si rapide.
J'ai testé, et j'ai ce message d'erreur : "Erreur d'exécution 438 - Propriété ou méthode non géré par cet objet" (voir photo jointe)
Dans le débugger, il bloque sur la ligne :
Workbooks(cc).Worksheets("base de donnee").Range ("A1")
Une idée ?