......
With Sheets("Coverage_01")
' With .Range("A1:A" & .Range("DD1000000").End(xlUp).Row)
' .Sort key1:=.Item(1, 9), order1:=xlAscending, Header:=xlYes
' End With
' Set j = .Range("I" & .Range("I1000000").End(xlUp).Row)
Dim a As Variant
Set a = Range("A1").CurrentRegion
a.Sort key1:=.Item(1, 9), order1:=xlAscending, Header:=xlYes
Set j = a.Offset(1, 10).Resize(a.Rows.Count, 1)
'j.Select
Cells(1, 30).EntireColumn.Insert
Cells(1, 30) = "Prix Unitaire"
Cells(1, 31) = "Stock à l'édition"
Cells(1, 32) = "Stock-Arriéré"
Columns("AD:AD").Select
Selection.NumberFormat = "#,##0.00 $"