problème excel 2007 macro tableau dynamique

Bonjour,
Je débute dans la création de macro et je voulais crée un tableau dynamique or quand je lance la macro elle bloque. J' ai remplacé les l par des r mais ca bloque toujours. Pouvez vous me dire d'ou viens mon problème?

Sub Macro9()
'
' Macro9 Macro
'

'
Sheets("Feuil3").Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.FormulaR1C1 = "549874"
Range("A2").Select
ActiveCell.FormulaR1C1 = "ljkfpqf"
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"boucle!R1C1:R500C10 ", Version:=xlPivotTableVersion12).CreatePivotTable
TableDestination:="Feuil3!R1C1", TableName:="Tableau croisé dynamique5", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil3").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("societe" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("VILLE")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique5").PivotFields("departement"), _
"Nombre de departement", xlCount
Range("D10").Select
End Sub



Merci