Sub suppr_lignes_numerotation()
On Error Resume Next
For lin = Cells.SpecialCells(xlCellTypeLastCell).Row To 4 Step -1
If Rows(lin).Find("*") Is Nothing Then Rows(lin).Delete
Next lin
For Each c In Range("a5:a" & [a65000].End(xlUp).Row)
If c.Value <> "" Then c.Value = c.Row - 4
Next c
End Sub