Option Explicit
Sub Incrémenter()
Dim c As Range, compteur
Application.ScreenUpdating = 0
compteur = 1
For Each c In Range("a2:a" & Rows.Count).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
c.Offset(, 9) = compteur
compteur = compteur + 1
Next
Application.ScreenUpdating = -1
End Sub