Avec l'enregistreur de macro, après avoir selectionné rapport de tableau croisé dynamique, je selectionne le tableau avec ctrl+shift+bas puis droite pour avoir un endxldown et right.
Le problème c'est qu'il me donne le code suivant qui selectionne des cellules et ne permet pas à ma macro d'adapter la selection sur un tableau plus grand.
Set Plage = Feuil1.[A4].CurrentRegion
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Plage).CreatePivotTable TableDestination:="'[Current Region.xls]F1'!R2C19", TableName:="TCD1", _
DefaultVersion:=xlPivotTableVersion10
End Sub