Erreur d'execution 1004 ; création de tableau dynamique croisé

Bonjour j'ai un code vba qui séléctionne des données dans ma feuille excel et qui créer un tableau croisé dynamique.

Mais actuellement il m'affiche une erreur 1004 et je comprend pas vraiment pk pouvez vous m'éclairer?

La partie du code qui bug:

Code:

---

1 2 3 4 5 6 7

Range("A1:X1").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Feuil1!R1C1:R" & j - 1 & "C24", Version:=6).CreatePivotTable TableDestination:= _ "Feuil2!R3C1", TableName:="Tableau croisé dynamique1", DefaultVersion:=6 Sheets("Feuil2").Select

---

Et voici une image de l'erreur affiché

Pièce jointe 372434

D'avance merci