Sub CopierLignes2()
Dim i&, n&
Application.ScreenUpdating = False
With Sheets("Hebdo")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .[A1].CurrentRegion
For i = .Rows.Count To 2 Step -1
n = .Cells(i, 9) - 1
If n > 0 Then
.Rows(i + 1).Resize(n).Insert xlDown 'insère les lignes en copiant les formats
.Rows(i + 1).Resize(n) = .Rows(i).Value 'copie les valeurs
End If
Next
End With
End With
End Sub