Sub Import()
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("F:\Reporting\2012\fichier.xls", , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Rapport").Cells.Copy classeurDestination.Sheets("Rapport 1").Range("A1")
'fermer le classeur source
classeurSource.Close False