VBA Qu'est qui cloche dans mon code

[Arpette]

Bonjour à toutes et tous,
j'ouvre un nouveau post, car j'ai un peu avancé. Au lancement de ma macro, j'éfface les données des feuilles "WPT" & "FICHE" de mon fichier de base. J'ouvre 2 classeurs, je copie les feuilles et je veux les coller dans mon fichier de base. Mais je ne peux pas copier, message " Propriété ou méthode non gérée par l'objet "
Merci de votre aide.
@+

Option Explicit
Sub GPS()
Dim LeChemin As String
Dim LeChemin1 As String
Dim ClasseurFiche As Excel.Workbook
Dim ClasseurWpt As Excel.Workbook

Application.ScreenUpdating = False

LeChemin = "J:\cendre fiches"
LeChemin1 = "J:\cendre wpts"
 
'On ouvre les deux classeurs
Set ClasseurFiche = Excel.Workbooks.Open(LeChemin)
Set ClasseurWpt = Excel.Workbooks.Open(LeChemin1)
 
Workbooks(ThisWorkbook.Name).Activate
Application.DisplayAlerts = False
Sheets("WPT").UsedRange.Clear
Sheets("FICHE").UsedRange.Clear
Application.DisplayAlerts = True

ClasseurWpt.Sheets("cendre wpts").Range("A1:Z65536").Copy
Workbooks(ThisWorkbook.Name).Sheets("WPT").Range("A1:Z65536").Paste
'Cest ici que çà coince
ClasseurFiche.Sheets("cendre fiches").Range("A1:Z65536").Copy
Workbooks(ThisWorkbook.Name).Sheets("FICHE").Range("A1:Z65536").Paste
'Et certainement ici

'On ferme les deux classeurs
ClasseurFiche.Close
ClasseurWpt.Close
 
Set ClasseurFiche = Nothing
Set ClasseurWpt = Nothing

Application.ScreenUpdating = True
End Sub

C'est ici que çà ratatouille

ClasseurWpt.Sheets("cendre wpts").Range("A1:Z65536").Copy
Workbooks(ThisWorkbook.Name).Sheets("WPT").Range("A1:Z65536").Paste
'Cest ici que çà coince
ClasseurFiche.Sheets("cendre fiches").Range("A1:Z65536").Copy
Workbooks(ThisWorkbook.Name).Sheets("FICHE").Range("A1:Z65536").Paste
'Et certainement ici

 

[Arpette]

Re : VBA Qu'est qui cloche dans mon code

Salut JNP, avec la sélection de la feuille, plus de problème.
Merci encore.
@