Sub SupprimerLignes()
''
'''on espere supprimer toutes les lignes vides de chaque section sauf 10
Dim ncol%, i&, lig&, sup As Range
''
'
'conserve 10 lignes sous chaque cellule fusionnée
Set zone = Range("Dzone", "Fzone")
'zone.Select
'Range("Dzone").Select
Rdzone = Range("Dzone").Row
With zone
ncol = .Columns.Count
nlig = .Rows.Count + Rdzone
'ncol = 5
For i = Rdzone To nlig '.Rows.Count
If .Cells(i, 1).MergeArea.Columns.Count = ncol Then lig = i 'repère les lignes fusionnées
If lig Then If i > lig + 10 Then Set sup = Union(IIf(sup Is Nothing, .Rows(i), sup), .Rows(i))
Next
End With
If Not sup Is Nothing Then sup.Delete xlUp
End Sub