Histoire d'apprendre

Pour afficher le numéro de ligne, pas besoin d'une macro, il existe la fonction LIGNE() qui fait ça très bien.
Donc en colonne A, tu pourrais mettre la formule :
=LIGNE() - 1
(-1 parce qu'on démarre à la ligne 2), mais qu'on numérote à partir de 1)

Si vraiment tu veux une macro, en voici une qui va plus vite, mais on pourrait faire cela de pleins d'autres façons. En tout cas tu dois apprendre à utiliser les boucles For...Next et bannir les goto et les labels qui sont des reliques d'un autre temps.
Mais bon, il faut bien débuter un jour et cela passe aussi par de multiples erreurs, alors courage

Sub CompteLignes()
Dim Plage As Range, Cel As Range, Index As Long
With ActiveSheet
Set Plage = .Range("B2", .Range("B65536").End(xlUp))
End With
For Each Cel In Plage
Index = Index + 1
Cel.Offset(0, -1) = Index
Next Cel
End Sub

Salut TI

Merci beaucoup pour ta réponse précise et rapide

@+

VB@D