Difficulter pour generer un tcd sous VBA (macro) ne fonctionne pas

Sub ajoutertcdpfi()

'

' ajoutertcdpfi Macro

'

'

Application.CutCopyMode = False

Application.CutCopyMode = False

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

"Ruptures PFI!R1C1:R90000C90000", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _

:="TCD PFI!R1C1", TableName:="Tableau croisé dynamique2", DefaultVersion:=-8

Sheets("TCD PFI").Select

Cells(1, 1).Select

With ActiveSheet.PivotTables("Tableau croisé dynamique2")

.ColumnGrand = True

.HasAutoFormat = True

.DisplayErrorString = False

.DisplayNullString = True

.EnableDrilldown = True

.ErrorString = ""

.MergeLabels = False

.NullString = ""

.PageFieldOrder = 2

.PageFieldWrapCount = 0

.PreserveFormatting = True

.RowGrand = True

.SaveData = True

.PrintTitles = False

.RepeatItemsOnEachPrintedPage = True

.TotalsAnnotation = False

.CompactRowIndent = 1

.InGridDropZones = False

.DisplayFieldCaptions = True

.DisplayMemberPropertyTooltips = False

.DisplayContextTooltips = True

.ShowDrillIndicators = True

.PrintDrillIndicators = False

.AllowMultipleFilters = False

.SortUsingCustomLists = True

.FieldListSortAscending = False

.ShowValuesRow = False

.CalculatedMembersInFilters = False

.RowAxisLayout xlCompactRow

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique2").pivotCache

.RefreshOnFileOpen = False

.MissingItemsLimit = xlMissingItemsDefault

End With

ActiveSheet.PivotTables("Tableau croisé dynamique2").RepeatAllLabels _

xlRepeatLabels

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Atélier" _

)

.Orientation = xlRowField

.Position = 1

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Atélier" _

)

.PivotItems("").Visible = False

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Code prov. transfert")

.Orientation = xlRowField

.Position = 2

End With

ActiveSheet.PivotTables("Tableau croisé dynamique2").RowAxisLayout xlTabularRow

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("clé primaire" _

).Subtotals = Array(False, False, False, False, False, False, False, False, False, False _

, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Code magasin" _

).Subtotals = Array(False, False, False, False, False, False, False, False, False, False _

, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("N° article"). _

Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Désignation") _

.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Atélier"). _

Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Système réapprovisionnement").Subtotals = Array(False, False, False, False, False, _

False, False, False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Nb lignes expéditions ruptures").Subtotals = Array(False, False, False, False, _

False, False, False, False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Quantité manquante").Subtotals = Array(False, False, False, False, False, False, _

False, False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Unité de vente").Subtotals = Array(False, False, False, False, False, False, False, _

False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Taux de rupture").Subtotals = Array(False, False, False, False, False, False, False, _

False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Code prov. transfert").Subtotals = Array(False, False, False, False, False, False, _

False, False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date - Année" _

).Subtotals = Array(False, False, False, False, False, False, False, False, False, False _

, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Date - Trimestre").Subtotals = Array(False, False, False, False, False, False, False _

, False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date - Mois") _

.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date - Jour") _

.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Nom radical recette").Subtotals = Array(False, False, False, False, False, False, _

False, False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Code marque") _

.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"N° fournisseur").Subtotals = Array(False, False, False, False, False, False, False, _

False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Fournisseur") _

.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Approvisionneur / Planificateur").Subtotals = Array(False, False, False, False, _

False, False, False, False, False, False, False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Activité"). _

Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Famille"). _

Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Gamme"). _

Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _

False, False)

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Sous-famille" _

).Subtotals = Array(False, False, False, False, False, False, False, False, False, False _

, False, False)

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Nom radical recette")

.Orientation = xlRowField

.Position = 3

End With

Range("A3").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Atélier"). _

RepeatLabels = True

Range("B4").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Code prov. transfert").RepeatLabels = True

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect _

"'Nom radical recette'[All]", xlLabelOnly, True

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Code marque")

.Orientation = xlRowField

.Position = 4

End With

Range("C3").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Nom radical recette").RepeatLabels = True

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"N° article")

.Orientation = xlRowField

.Position = 5

End With

Range("D2").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Code marque") _

.RepeatLabels = True

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Désignation")

.Orientation = xlRowField

.Position = 6

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Approvisionneur / Planificateur")

.Orientation = xlRowField

.Position = 7

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Système réapprovisionnement")

.Orientation = xlRowField

.Position = 8

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Date - Année")

.Orientation = xlColumnField

.Position = 1

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Date - Mois")

.Orientation = xlColumnField

.Position = 2

End With

ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _

PivotTables("Tableau croisé dynamique2").PivotFields( _

"Nb lignes expéditions ruptures"), "Somme de Nb lignes expéditions ruptures", _

xlSum

ActiveWindow.SmallScroll ToRight:=7

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Range("A4").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").ShowDrillIndicators = _

False

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 6

End Sub