J'ai le même problème que kiwi31 dans cette discussion: erreur 424 objet requis. C'est sur la ligne suivante qu'elle apparaît:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [Feuil2!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
    TableDestination:="Feuil3!R11C1", _
    TableName:="TCD Montant/Type"
A noter que Feuil2 et Feuil3 existent mais sont nommées...