Afficher tous les X lignes

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

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

Sub SupprimeLignes()
[COLOR="Red"]On Error Resume Next[/COLOR]
Intersect(Rows("7:65536"), Columns(1).SpecialCells(xlCellTypeConstants)).Offset(-1).EntireRow.Delete
End Sub