Oups, heu, j'ai corrigé l'erreur mais le problème est toujours là.
Désolé, si je met du code foireux, on est pas sorti ! :-/
Donc revoila la boucle:
Do Until i = nblignes
cellule = "S" & i
Calcul = (a * CLng(Range(cellule).Offset(0, -1).Value)) / CLng(Range(cellule).Offset(0, -2).Value)
Range(cellule).Value = Calcul
Calcul = 0
i = i + 1
Loop