CREER UN TABLEAU CROISE DYNAMIQUE

Bonjour,

Je creer une macro pour creer mon tableau croisé dynamique mais quand je lance ma macro elle ne se déroule pas. Elle bloque dés la première ligne
Le script de la macro est le suivant:
Sub CREATTABDYNTEST1()
'
' CREATTABDYNTEST1 Macro
' CREATON TABLEAU CROISE DYNAMIQUE
'

'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!L1C1:L8C2", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Feuil3!L3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10
Sheets("Feuil3").Select
Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"INTITULE")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("NBRE"), "Somme de NBRE", _
xlSum
Range("A7").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").RowGrand = False
ActiveSheet.PivotTables("Tableau croisé dynamique1").Name = _
"PERFORMANCE SUPPORT APPLICATIF OSMOSE"
End Sub

Merci pour vos réponses si il y en a.