XL 2010 creation un croisé dynamique en vba

[FCMLE44]

Bonjour

Je viens d'essayer de mettre ce code pour créer automatiquement un tableau croisé dynamique.

Ma source Feuille ABS
Ma cible Feuille TCD

J'obtiens un débogage. Pouvez-vous me dire ce qui ne va pas

Sub CREERTCD()
'
' CREERTCD Macro
'
' Sélection des données
    Sheets("ABS").Select
    Columns("A:G").Select

' Création du TCD
    ActiveWorkbook.Worksheets("TCD").PivotTables( _
        "Tableau croisé dynamique7").PivotCache.CreatePivotTable TableDestination:= _
        "", TableName:="Tableau croisé dynamique4", DefaultVersion:= _
        xlPivotTableVersion12

' Actualiser
    Range("A3").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh

End Sub