Coller feuille dans classeur fermé

Sub Ajouter_Feuille()
Dim FEUIL As Worksheet

Set FEUIL = ThisWorkbook.ActiveSheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    ActiveSheet.Select
    Workbooks.Open Filename:="C:\Archivage 2008.xls"
    Windows("Archivage 2008.xls").Activate
    FEUIL.Copy After:=Workbooks("Archivage 2008.xls").Sheets(1)
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    ThisWorkbook.Activate

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Sub Ajouter_Feuille_1()
Dim NOM

NOM = ThisWorkbook.ActiveSheet.Name

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    Cells.Select
    Selection.Copy

    Workbooks.Open Filename:="C:\Archivage 2008.xls"
    Windows("Archivage 2008.xls").Activate
    
    Sheets.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Name = NOM
    
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    ThisWorkbook.Activate

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub