Macro de création tableau croisé dynamique

Bonjour,

Merci par avance à ceux qui prendront le temps de lire le post.
Novice en programmation, j'ai besoin d'une macro pour créer un tableau croisé dynamique sous Excel d'un tableau basique comprenant le nom du client, le numéro de facture, le montant du et la personne responsable.
J'ai effectué un enregistrement avec l'assistant de création mais lorsque je souhaite ré exécuter ma macro, j'ai le message d'erreur ci-dessous et ce malgré le fait que j'ai supprimer au préalable la feuille crée.

Sub TableauCroise()
'
' TableauCroise Macro
'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tableau1", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil5!L3C1", TableName:="Tableau croisé dynamique2", _
==> ligne du message d'erreur '5' DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil5").Select
Cells(3, 1).Select

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Client")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("Reste du"), _
"Somme de Reste du", xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"N°Facture")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Resp.")
.Orientation = xlPageField
.Position = 1
End With
Range("A4").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Client"). _
ShowDetail = False
Sheets("Base").Select
End Sub

Si quelqu'un à une solution...

Bonne soirée.