Merci beaucoup pour toutes tes explications,
Au début j'ai cru que cela ne fonctionner toujours pas. J'ai donc essayé avec Excel 2003 et ça marche
Sous le version 2007 ça bloc au niveau de la ligne : Workbooks(NomFic).Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Quelque chose à dut changer entre temps.
C'est pas très grave car pour le moment je tourne sous 2003.
Merci encore
A+