VBA Tableau croisé dynamique pb de compilatio

Bonjour,
Je suis presque débutant en VBA et j'essai de faire un tableau croisé dynamique avec une macro.
Je n'arrive pas à résoudre un problème. Ci dessous mon code :

Sub creer_tableau_croise_dynamique()

'dernière ligne = lastrow
Dim lastrow
lastrow = Range("A3").End(xlDown).Row

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"base de données!lastrow", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="tableau croisé dynamique!L14C1", _
TableName:="Tableau croisé dynamique2", DefaultVersion:= _
xlPivotTableVersion12

Sheets("tableau croisé dynamique").Select
Cells(14, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("PROJET")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("TACHE")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("QUI")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"ETAT DE LA TACHE")
.Orientation = xlPageField
.Position = 1
End With
End Sub

J'ai une erreur de compilation lorsque j'exécute la macro au niveau de la version=xlpivotTableVersion12 !
Je ne suis pas sûr que le reste fonctionnne mais en tout cas, je suis bloqué ici !
Merci d'avance à tous ceux qui se posent sur ce problème.