Erreur macro 1004

Bonjour j'aimerais savoir pourquoi ma macro ne fonctionne pas avec un croisé dynamique intégré?


Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R7669C35", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Feuil2!R3C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Feuil2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"RANGECODE1")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("AWSMHS"), _
"Somme de AWSMHS", xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ARTNAME" _
)
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"RANGECODE1")
.Orientation = xlPageField
.Position = 1
End With
ActiveWindow.SmallScroll Down:=-6
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ASSQ")
.Orientation = xlColumnField
.Position = 1
End With
ActiveWindow.SmallScroll Down:=-3
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("PA")
.Orientation = xlRowField
.Position = 2
End With
End Sub