Bonjour
tu ouvre le classeur destinataire avec workbook.open
dim wk as workbook
set wk = Workbooks.open("x:\dd\kk\Monclasseur.xls")
et tu écris directement dans ce classeur
wk.sheets("MaFeuille").range("A1") = thisWorkBook.sheets("BD").range("C2")
à toi d'adapter les pages à copier..