Bonjour,
à première vue je vois 3 choses:
1 - mettre les fichiers à importer dans un répertoire qui ne contient que ceux-là ! (donc des fichiers excel identiques)
2 - Set moShDonnees = Worksheets("ca annuel") ' tu as "données" dans ton code
3- oShSource.Range("A4:F28" & iDerLig).Copy ' la zone A4:F28 suffit , ne pas ajouter le "iDerlig" puisque la zone est déjà définie par A4:F28
P.