Salut ,
deja en regardant vite fait :
Dim number = 0
For i = 0 To path.movepath.Count - 1 'le nomber de cell
number = number + 1
Next
param1.WriteUShort(number)
c'est la meme chose que :
param1.WriteUShort(path.movepath.Count) ' donc number sert a rien en plus ca evite une boucle
sur quelle cellule tu parts , et que contient path.movepath ?