Option Explicit
Sub InsertionLignes()
Dim nbCol As Integer, i As Integer, n As Integer
Dim nbLigne As Long, rpre() As Long
Dim plage As Range, cel As Range, zone As String
Set plage = Worksheets("Données").Range("A1").CurrentRegion
nbCol = plage.End(xlToRight).Column
nbLigne = plage.End(xlDown).Row
For Each cel In plage.Columns(2).Cells
If IsEmpty(cel) Then
n = n + 1
ReDim Preserve repaire(n)
rpre(n) = cel.Row
End If
Next
For i = n - 1 To 1 Step -1
zone = CStr(rpre(i + 1)) & ":" & CStr(23 + rpre(i))
plage.Rows(zone).Insert Shift:=xlDown
Next i
End Sub