erreur 1004 la methode add a échoué

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