Syntaxe source de données et table destination dans pivot tables

[varik]

Bonjour tout le monde

je bloque un peu et je trouve pas la syntaxe qui puisse me permettre d'utiliser une variable comme source de données por la création d'un tcd par macro,
en gros j'essaie de boucler sur toutes les feuilles de mon classeur qui on la même mise en forme pour créer des tcd dans des nouvelles feuilles .


je vous remercie d'avance

Sub CreerTCD()
Dim X, Y As Variant
Dim ws As Worksheet
 For Each ws In ActiveWorkbook.Worksheets
 
Y = ws.Name
X = ws.Name & " " & "TCD"
 
 Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = X
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [y!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable
    TableDestination:="x!R3C1", _
    TableName:="TCD"
 
ActiveWorkbook.Sheets("x").PivotTables("Mon TCD").SmallGrid = False
ActiveWorkbook.Sheets("x").PivotTables("Mon TCD").AddFields RowFields:="ARTICLE", ColumnFields:="ANNEE MOIS" ', PageFields:=""
With ActiveWorkbook.Sheets("x").PivotTables("Mon TCD").PivotFields("km")
    .Orientation = xlDataField
    .Caption = "somme Qte_dem_km"
    .Function = xlSum
    '
End With
 Application.CommandBars("PivotTable").Visible = True
 Next ws
End Sub