Macro combiner suppression & insertion de lignes

Sub Macro1()
Dim Cel As Range 'déclare la variable Cel
Dim li As Long 'déclare la variable li

'boucle sur toutes les cellules éditées Cel de la colonne D
For Each Cel In Range('D10' & Range('D65536').End(xlUp).Row)
If Cel.Value = ' ' Then 'condition : si la valeur de la cellule = un espace
li = Cel.Row 'définit la variable li
Cel.EntireRow.Delete 'supprime la ligne de la cellule Cel
Cells(li + 10, 1).EntireRow.Insert Shift:=xlDown 'rajoute une ligne vierge 10 ligne en dessous de Cel
End If 'fin de la condition
Next Cel 'prochaine cellule éditée Cel de la colonne D
End Sub

Cliquez pour agrandir...