Workbooks("Test.xlsm").PivotCaches.Add(SourceType:=xlDatabase, SourceData:=[Data!A2].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable TableDestination:="TCD!R2C1", TableName:="TCD1"
With Worksheets("TCD").PivotTables("TCD1")
.AddFields RowFields:="Fonds de commerce de l'EJ"
.PivotFields("Id RMPM EJ").Orientation = xlDataField
.PivotFields("Date prochaine RA").PivotFilters.Add FilterType:=xlDateBetween, Value1:=Date3, Value2:=Date4