Problème dans macre

Bonjour,
J'ai une macro qui traite environ 40000 lignes et qui doit calculer le prix moyen d'un article.
Ce prix moyen se calcule bien sur les 29000 premières lignes mais pas les suivantes.
Voici le code utilisé :
Calcul prix moyen

LIG = 2
While Cells(LIG, 2) <> ""
ca = Cells(LIG, 6)
qte = Cells(LIG, 5)
If qte <> 0 Then resultat = ca / qte Else resultat = 0
Cells(LIG, 7) = resultat
LIG = LIG + 1
Wend
ActiveCell.Offset(0, 6).Columns("A:A").EntireColumn.Select
Selection.NumberFormat = "#,##0.00"

Pouvez vous me dire où est l'erreur
Merci de votre aide