Salut,
pour le choix des fichiers, renseigne toi sur FileDialog

Ensuite, tu ouvres tes fichiers avec WorkBooks.Open(ResultatFileDialog)
puis soit tu fais par copier coller, (méthode Copy, puis PasteSpecial), soit tu copies directement la feuille dans le classeur :
Sheets("NomFeuille").Copy Before:=Workbooks("Le Bon classeur").Sheets(1)
@++
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~