Limitations MSP ?

Bonjour,
Je fais mes débuts et je souhaiterai avoir votre pt de vue sur mon simple code
Sub test()
Dim job As Task
Dim nb As Integer
For Each job In ActiveProject.Tasks
If Not job Is Nothing Then
job.Cost = 1
End If
Next job
Set job = Nothing
End Sub

Au premier abord elle fonctionne comme attendu pour un petit nombre de lignes (50)
Toujours avec un nb de taches plus important (500) mais avec un temps d’attente non négligeable
Et puis semble jamais se terminer pour un projet entier…
Et sans aucun message d’erreur à priori

Cela compromet l’idée que je m’étais fait
Quelqu’un a –il une idee, erreurs, oubli dans mon code, limitations MsProject VBA, Nb de taches …
Merci par avance