Sub efface_en_tete()
For n = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
If Not IsNumeric(Range("A" & n)) Then Rows(n).Delete
Next
End Sub
Sub SupprimeLigneEnteteEnTrop()
Range([A3], [A3].End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete
End Sub