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 : Sélectionner tout - Visualiser dans une fenêtre à part
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é

Nom : ERREUR.PNG Affichages : 151 Taille : 7,9 Ko

D'avance merci