Re : erreur execution 28 espace pile insuffisant
oui, c'est bien ce que je t'expliquais plus haut, ta macro tourne indéfiniment et si tu n'avais pas eu une erreur de pile, tu aurais eu une erreur lorsque tu serais arrivé à la ligne 65536, puisque tu ne t'arrêtes jamais.
Voici une simple boucle qui te permet de faire la même chose. Il suffit d'ajuster la valeur de fin de celle-ci pour indiquer le nombre de lignes à parcourir :
Dim Bcle As Long
For Bcle = 1 To 10000 'parcourt 10 000 lignes
Cells(Bcle, 1) = Bcle
Next Bcle