Sub suppr_lignes()
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
End Sub
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
d = Range("A4").CurrentRegion.Rows.Count
Range("A5").Select
For d = 0 To d - 2
ActiveCell.Formula = d + 1
ActiveCell.Offset(1, 0).Range("A1").Select
Next d