Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("C:\Documents and Settings\infirmerie\Bureau\CLES_NAT\CLES_NAT_Version 2.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("Feuil1").Cells.Copy classeurDestination.Sheets("Base_de_donnée").Range("A1")
'fermer le classeur source
classeurSource.Close True