Copie feuille d'un autre classeur

Sub Macro1()
Dim nc As String 'déclare la variable nc (Nom du Classeur)

nc = "C:\Document\" & CStr(Sheets(2).Range("B2").Value) & ".xls" 'définit la variable nc (extension à vérifier et à éventuellement supprimer si déjà dans la cellule B2)
Workbook.Open nc 'ouvre le classeur
ActiveWorkbook.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Range("A1") 'copie les cellules du premier onglet et les colle dans A1
ActiveWorkbook.Close SaveChanges:=False 'ferme le classeur actif sans enregistrer les changements
End Sub