J'ai un problème avec mon tableau croisé dynamique en code VB

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Columns("A:F").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Feuil1!C1:C6").CreatePivotTable TableDestination:="", _
    TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:=Array("tronçon", "meuble", "Ref")
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ref").Orientation = xlDataField
    Range("B6").Select
    Selection.Delete
    Selection.Delete
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("tronçon")
        .PivotItems("(vide)").Visible = False
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("meuble")
        .PivotItems("(vide)").Visible = False
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ref")
        .PivotItems("(vide)").Visible = False
    End With
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
j'ai une erreur :
"erreur d'execution 1004" la methode addfields de la classe pivottable a echoue.

d'où est-ce que ça vient ?