Bonjour,
L'intérêt de bien définir le besoin dès le début est essentiel pour ne pas avoir à reprendre le code. Un second test :
Sub INSER()
Dim L%, I%, J%
Application.ScreenUpdating = False
With Worksheets("A")
For L = .Cells(.Rows.Count, 9).End(xlUp).Row To 3 Step -1
.Range(.Cells(L + 1, 1), Cells(L + .Cells(L, 16), 1)).EntireRow.Insert xlDown
J = 1
For I = L + 1 To L + .Cells(L, 16) + 1
.Cells(I - 1, 2) = J
J = J + 1
Next I
Next L
End With
Application.ScreenUpdating = True
End Sub
Cdlt,