Utilisez ce code lorsque vous souhaitez insérer une ligne vide après chaque ligne de la plage sélectionnée.
‘Ce code insère une ligne après chaque ligne de la sélection

Sub InsertAlternateRows()
Dim rng As Range
Dim CountRow As Integer
Dim i As Integer
Set rng = Selection
CountRow = rng.EntireRow.Count
For i = 1 To CountRow
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Next i
End Sub

De même, vous pouvez modifier ce code pour insérer une colonne vide après chaque colonne de la plage sélectionnée.