bonjour Garamante, Hervé,
je n'avais pas compris comme Hervé, j'avais fait ça :
--------------------------------------------------------------------------------
Sub FillSerie()
Dim NumLigne As Long
Dim i As Long
Worksheets("Feuil1").Activate
NumLigne = InputBox("numéro de démarrage ?")
LastL = Range("B65536").End(xlUp).Row
For i = 1 To LastL
If Cells(i, 2) <> 1 Then
Cells(i, 1) = NumLigne
Else
NumLigne = NumLigne + 1
Cells(i, 1) = NumLigne
End If
Next
End Sub
----------------------------------------------------------------------------------
bonne bière Hervé,
amicalement