bonjour
tu veux juste faire du copier coller ?
s´ils ne sont pas très nombreux, tu peux tous les ouvrir dans excel, puis, dans un nouveau classeur, tu peux utiliser un code du genre suivant :
sub demo
set targetSh = activesheet
for each wb in workbooks
if wb<>thisworkbook then
´instruction principale
wb.worksheets(1).range("A1").currentregion.copy destination:= targetSh.[A65536].End(xlUp)
end if
next wb
end sub
l´instruction principale copie la première feuille (physiquement parlant) de chacun des classeurs à l´exception de celui hébergeant la macro, et la copie á la fin de la feuille cible
attention :
- les en-têtes sont recopiés (pour éviter cela chercher des exemples de la méthode resize dans le forum)
- l´utilisation de la méthode currentregion suppose que tes données commence en A1 et qu´aucune ligne vide ne sépare des données
un fil un peu similaire
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=256&t=253>