Sub InserLignes()
Application.ScreenUpdating = False
Dim lig As Integer
For lig = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
On Error Resume Next
Rows(lig + 1).Resize(Cells(lig, "O") - 1).Insert Shift:=xlDown
Next lig
End Sub
Sub InserLignes()
Application.ScreenUpdating = False
Dim lig As Long
For lig = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
On Error Resume Next
Rows(lig + 1).Resize(Cells(lig, "O") - 1).Insert Shift:=xlDown
Cells(lig, 1).Resize(Cells(lig, "O"), 15).FillDown
Next lig
End Sub
Rows(lig + 1).Resize(Cells(lig, " O ") - 1).Insert Shift:=xlDown
Cells(lig, 1).Resize(Cells(lig, " O "), 15).FillDown