Insertion TCD à partir d'un tableau avec VBA

[Poussin]

Bonjour à tous voici mon problème je cherche à automatiser la création d'un TCD et je me mélange avec les propriétés du TCD, pourriez-vous m'aider.

Je vous remercie par avance pour votre aide.

ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [Feuil3!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
    TableDestination:="Feuil4!R1C1", _
    TableName:="Mon TCD"


With Feuil4.PivotTables("Mon TCD")

    .PivotFields ("Nom")
        .Orientation = xlPageField
        .Position = 1
    .PivotFields ("Date")
        .Orientation = xlPageField
        .Position = 1
    
    .AddDataField ActiveSheet. _
        PivotTables("Mon TCD").PivotFields("Effectifs"), _
        "Moyenne de Effectifs", xlAverage, "0,00%"
    .AddDataField ActiveSheet. _
        PivotTables("Mon TCD").PivotFields( _
        "CA"), "Somme de CA", xlAverage
    
End With
End Sub