Sub TCDcomparatif()
Application.DisplayAlerts = False
Dim mafeuil As Worksheet
Dim feuildenregistrement As Worksheet
Dim champdate, plagecopiee As Range
Set mafeuil = ActiveWorkbook.Worksheets.Add(after:=Worksheets(Worksheets.Count)) ' ici erreur 1004
Set feuildenregistrement = ActiveWorkbook.Sheets("Enregistrement")
Application.ReferenceStyle = xlA1
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=Sheets("Base").Range("A1").CurrentRegion.Address).CreatePivotTable _
TableDestination:=mafeuil.Cells(3, 1), _
TableName:="Tableau croisé dynamique3" ', DefaultVersion:=xlPivotTableVersion10
With mafeuil.PivotTables("Tableau croisé dynamique3").PivotFields("DATE")
.Orientation = xlRowField
.Position = 1
End With
mafeuil.PivotTables("Tableau croisé dynamique3").AddDataField mafeuil. _
PivotTables("Tableau croisé dynamique3").PivotFields("NIVEAUX"), _
"Somme de NIVEAUX", xlSum
Set champdate = mafeuil.Range("A4")
champdate.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
False, True, False, True)
With mafeuil.PivotTables("Tableau croisé dynamique3").PivotFields("DATE")
.Orientation = xlColumnField
.Position = 1
End With
With mafeuil.PivotTables("Tableau croisé dynamique3")
.ColumnGrand = False
.RowGrand = False
End With
mafeuil.Name = "Tableau TCD"
'etc ....
end sub