Sub PhaseUN_suivie_de_PHASE_DEUX()
Dim f As Worksheet, X&: Set f = Sheets("Commandes"): X = f.Cells(Rows.Count, 2).End(3).Row
'PHASE I (Sur Feuille Commandes)
f.Cells(X + 1, 1).Resize(, 3) = Array(X, Date, X & "-" & CLng(Date))
Set f = Sheets("Stocks")
'PHASE II (Sur Feuille Stocks)
'Sur chaque ligne qui porte une qté en colonne "BT", un calcul en "BP" tel que "BT"*"BU"
For Each c In f.Range("BT2:BT100")
If Len(c) > 0 Then
f.Cells(c.Row, "BP") = _
Round(f.Cells(c.Row, "BT") * f.Cells(c.Row, "BU"), 2)
End If
Next
End Sub