XL 2016 VBA - TCD - Questions diverses

Sub Creer_Exemple()
With Cells(1)
.Value = "ITEM_1"
.AutoFill Destination:=.Resize(, 8), Type:=xlFillDefault
.Offset(1).Resize(20, 8).Formula = "=ROW()+INT((ROW()*COLUMN())*RAND())"
Sheets(.Parent.Name).ListObjects.Add(xlSrcRange, .Resize(21, 8), , xlYes).Name = "Tableau" & Application.RandBetween(1, 100)
End With
End Sub

Sub a()
With Workbooks.Add
    Application.DisplayAlerts = False
    For I = .Sheets.Count To 2 Step -1
        .Sheets(I).Delete
    Next
    Application.DisplayAlerts = True
    .Sheets(1).Name = "TDC"
    TdcExistant(ThisWorkbook.Sheets("Tdc"), "TDC").TableRange2.Copy .Sheets("TDC").Range("A1")
    With .Sheets("TDC").PivotTables(.Sheets("TDC").PivotTables.Count)
        .Name = "TDC"
        .ClearAllFilters
        .ColumnGrand = True
        .RowGrand = True
        With .TableRange1
            .Cells(.Rows.Count, .Columns.Count).ShowDetail = True
        End With
    End With
    .Sheets(1).Name = "DATA"
    .Sheets("TDC").PivotTables("TDC").PivotCache.SourceData = "DATA!" & .Sheets("DATA").Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)
End With
End Sub

Public Function TdcExistant(Sh As Worksheet, Tdc As String) As PivotTable
For Each td In Sh.PivotTables
   If UCase(td.Name) = UCase(Tdc) Then
         Set TdcExistant = td
         Exit For
   End If
Next
End Function