Code erreur macro excel

Bonjour,


Un stagiaire ingénieur en m'aidant pour une macro m'a fourni une macro qui selon lui fonctionne très bien sur son ordinateur, or sur tous les ordinateurs où j'ai pu la tester elle ne fonctionne pas.
Peut etre un probleme de version ???

Pour expliquer rapidement c'est une extraction excel d'un logiciel modifier pour être exploitable avec notamment l'insertion de tableau croisé dynamique...

Voici le message erreur et l'endroit du débogage:
" erreur d'execution '5': argument ou appel de procedure incorrect"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Range(Cells(1, 1), Cells(Nrange, 5)), Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="R5C8"

et lorsque que je clic sur debogage et que je relance la macro, second message d'erreur : Erreur d'execution '1004' Impossible de lire la propriété PivotTables de la classe worksheet.

avec comme partie surligné :
With ActiveSheet.PivotTables("Tableau crois dynamique").PivotFields("Classification")

en gros j'ai une grosse parti qui foire la voilà entierement (non confidentiel)
Nrange = Nrange - 9



ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Range(Cells(1, 1), Cells(Nrange, 5)), Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="R5C8"

Sheets(names(Nnames)).Select
Cells(5, 8).Select
With ActiveSheet.PivotTables("Tableau crois dynamique").PivotFields("Classification")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau crois dynamique").PivotFields("System")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau crois dynamique").PivotFields("Statut")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau crois dynamique").AddDataField ActiveSheet.PivotTables("Tableau crois dynamique" _
).PivotFields("Composant"), "Sum Composants", xlCount

Merci d'avance, Julien