Sub SupprimeLignes()
Dim plage As Range
Set plage = Columns(1).SpecialCells(xlCellTypeConstants) 'plage contenant des constantes
If plage Is Nothing Then Exit Sub
Rows(1).Insert 'à cause de Offset(-1)...
Set plage = Intersect(Rows("7:65536"), plage.Offset(-1))
If plage Is Nothing Then Exit Sub
plage.EntireRow.Delete
Rows(1).Delete
End Sub