Insertion de plusieurs lignes

Bonsoir,

J'aimerais insérer 3 lignes vides toutes les lignes dans un docs ou les lignes initial sont évidemment complétés.

Ci joint un exemple.

Est il possible de le faire de façon automatique ou bien via l'aide d'une macro.

Cdlt

wwbbbbbizard

Bonjour...a l'aide d'une macro.

Sub ligne()
Dim dl&
With Feuil1
dl = .Cells(Rows.Count, 1).End(3).Row
For i = dl To 2 Step -1
If .Cells(i, 1) <> "" Then .Cells(i, 1).Resize(3, 1).EntireRow.Insert
Next
End With
End Sub