Method cell.clear ne marche pas

Bonjour

j essaye de faire un code pour importer et lire des données d'une feuille Excel dans un autre classeur cible , mais a chaque fois que j'exécute j ai le même message d'erreur qui s'affiche qui est la méthode clear de la classe range a échoué . sachant que je suis débutante en vba pourriez vous m'aider a résoudre ce problème svp

Private Sub CommandButton1_Click() ' commande pour importer le fichier voulu 
Dim fichier_choisi As String
    fichier_choisi = Application.GetOpenFilename("files(.), .")

    If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then
        liste.AddItem (fichier_choisi)
    End If
End Sub

Private Sub CommandButton2_Click() ' commande pour lire et les données du fichier
Dim LastRow As Long
    Dim LastColumn As Long

    Sheets("Feuil1").Cells.Clear
    Workbooks.Open liste.List(0)
    LastRow = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
    LastColumn = ActiveSheet.Range("A1").CurrentRegion.Columns.Count

    ActiveWorkbook.Worksheets("Sheet 1").Range(Cells(1, 1), Cells(LastRow, LastColumn)).Copy Application.ThisWorkbook.Worksheets("Feuil1").Range("A1")
    ActiveWorkbook.Close SaveChanges:=False
End Sub

Bonjour,

Si l'instruction échoue, c'est que Feuil1 n'existe pas ou est protégée.

d'accord merci j ai vérifié et vous aviez raison