Faire un tableau croisé dynamique dans une macro

Bonjour tout le monde,

Je viens vers vous pour car j'ai un problème avec un de mes travaux sur Excel. Je n'arrive pas à faire un tableau croisé dynamique dans une macro. EXCEL me dit: Impossible d'éxécuter le code en mode arrêt...... Comment faire? Merci de votre aide

Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R7C3", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil4!R3C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil4").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SAN"), "Somme de SAN", _
xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"FILIALES")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("COMPTES" _
)
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("COMPTES" _
)
.Orientation = xlRowField
.Position = 1
End With
End Sub