Importer une feuille Excel vers un mon classeur

J'ai créé un code mais il plante, quelqu'un à t'il une idée ?

Option Explicit
Sub Import()

Dim ClasseurSource As Workbook, classeurDestination As Workbook

  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlManual

'Efface la feuille entière
Worksheets("Données").Range("A:BZ").Clear

'Supprime les filtres et affiche les colonnes masquées
    Sheets("Données").Activate
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.EntireColumn.Hidden = False

'ouvrir le classeur source (en lecture seule)
Set ClasseurSource = Application.GetOpenFilename
'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("Page1").Cells.Copy classeurDestination.Sheets("Données").Range("A1")

'fermer le classeur source
ClasseurSource.Close False

    Sheets("Accueil").Activate

  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.Calculation = xlAutomatic

End Sub

Merci de votre aide les Excelleurs !

Bonjour I3 PtitBiscuit

Merci de lire ou relire la charte du forum [A LIRE AVANT DE POSTER] qui vous aidera dans vos demandes et notamment :

• Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

Merci de votre compréhension

Bonjour,

ci-dessous code

Sub Import()

    Dim ClasseurSource As Workbook, classeurDestination As Workbook
    Dim nom_classeur As String

    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlManual

    With Feuil2
        'Efface la feuille entière
        .UsedRange.Clear
        'affiche les colonnes masquées
        .Rows(1).EntireColumn.Hidden = False
    End With

    'ouvrir le classeur source (en lecture seule)
    nom_classeur = Application.GetOpenFilename
    Set ClasseurSource = Workbooks.Open(nom_classeur, , 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("Page1").Cells.Copy classeurDestination.Sheets("Données").Range("A1")

    'fermer le classeur source
    ClasseurSource.Close (False)

    Feuil1.Activate

    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic

End Sub

NB: A partir du moment où la feuille entière est effacée, la suppression des filtres est effectuée.

@thev merci de faire respecter la charte STP

Réponses déjà apportées ICI

Bonne journée

@Bruno

J'ai vu ton message après avoir posté ma réponse.

Désolé du désagrément occasionné, merci de vos retours !