Argument ou Appel de procédure incorrect

Bonjour,

J'ai l'erreur suivante lorsque j'éxécute une simple macro enregistrée, qui me sert à créer un tableau croisé dynamique en un clic.

Lorsque je la lance, j'obtiens l'erreur 5, j'ai fait quelques recherches mais n'ai pas trouvé la solution.

Voici le code fautif:

 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Primes!L3C1:L338C11", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="TCD!L1C1", TableName:="TCD1", _
        DefaultVersion:=xlPivotTableVersion12

Merci pour votre aide et à dispo si besoin de plus d'infos.

Bonne journée,

A.

Bonjour alain,

Ça doit être parce que la feuille "TCD" contient déjà un TCD. Il faut le supprimer avant.

Essaie avec le code suivant :

Sheets("TCD").Cells.Delete
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Primes!L3C1:L338C11", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="TCD!L1C1", TableName:="TCD1", _
        DefaultVersion:=xlPivotTableVersion12