Sub Exporter_Stock()
Dim f1 As Worksheet, f2 As Worksheet
Dim DerLig_f1 As Long, DerLig_f2 As Long, Lig As Long
Dim i As Long
Dim Strock As Range
Application.ScreenUpdating = False
Set f1 = Sheets("STOCK")
Set f2 = Sheets("PREVU LE")
f2.Range("B9:I100").ClearContents
DerLig_f1 = f1.Range("B" & Rows.Count).End(xlUp).Row
Stock = f1.Range("B9:K" & DerLig_f1)
ReDim Prevu(1 To UBound(Stock), 1 To 10)
Lig = 9
For i = LBound(Stock) To UBound(Stock)
If f1.Cells(i + 8, "J") <> "" And f1.Cells(i + 8, "J") <> "PRÉVU LE" Then
f2.Range("B" & Lig & ":I" & Lig) = Array(Stock(i, 1), Stock(i, 2), Stock(i, 3), Stock(i, 4), Stock(i, 5), Stock(i, 8), Stock(i, 9), Stock(i, 10))
f1.Range(f1.Cells(i + 8, "C"), f1.Cells(i + 8, "K")).ClearContents
Lig = Lig + 1
End If
Next i
If Lig > 10 Then
DerLig_f2 = f2.Range("B" & Rows.Count).End(xlUp).Row
f2.Range("B9:I" & DerLig_f2).Sort [H8], 1
End If
End Sub