selectionnez feuille à copier sur classeur fermé.

Sub Copie()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
FichDest = ActiveWorkbook.Name
Workbooks(FichDest).Sheets("Inventaire").Delete
FichDep = Application.GetOpenFilename
If FichDep = False Then Exit Sub
Workbooks.Open FichDep
NomFich = ActiveWorkbook.Name
Sheets("Inventaire").Copy Before:=Workbooks(FichDest).Sheets(1)
Workbooks(NomFich).Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Range("A2").Select

End Sub

  Sheets("texte de l'onglet").Copy Before:=Workbooks(FichDest).Sheets(1)

Sheets(nomfeuille).Copy Before:=Workbooks(FichDest).Sheets(1)

Sub Copie()
    Dim NomFeuille As String
    Dim sh As Worksheet
    NomFeuille = InputBox("Indiquez le nom de la feuille à copier", "Copie")
    If NomFeuille = vbNullString Then Exit Sub

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    FichDest = ActiveWorkbook.Name
    Workbooks(FichDest).Sheets("Inventaire").Delete
    FichDep = Application.GetOpenFilename
    If FichDep = False Then Exit Sub
    Workbooks.Open FichDep
    NomFich = ActiveWorkbook.Name
    'Vérifier que la feuille existe bien dans le classeur actif
    On Error Resume Next
    Set sh = Sheets(NomFeuille)
    On Error GoTo 0
    If sh Is Nothing Then
        'Elle existe pas, on avertit et on sort
        MsgBox "La feuille '" & NomFeuille & "' est introuvable", vbExclamation
    Else
        'Elle existe on la copie
        sh.Copy Before:=Workbooks(FichDest).Sheets(1)
    End If
    Workbooks(NomFich).Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Range("A2").Select
End Sub