numéroter tableau

=NB.SI($A$2:$A2;">0")

Option Explicit
Sub Numeroter()
Dim i As Integer
Application.ScreenUpdating = False
With Sheets("Feuil1")
i = 2
    Do While .Cells(i, 1) <> ""
        .Cells(i, 2) = i - 1
    i = i + 1
    Loop
End With
Application.ScreenUpdating = True
End Sub

Option Explicit
Sub incrementation()
    With Sheets("Feuil1")
        With .Range("a2", .Range("a" & .Rows.Count).End(xlUp)).Offset(, 1)
            .Formula = "=row(a1)"
            .Value = .Value
        End With
    End With
End Sub

Sub incremente()
With [B2]
    .Value = 1: .DataSeries 2, -4132, 1, 1, _
    Cells(Rows.Count, 1).End(3).Row - 1
End With
End Sub