Gestion de stock Lot

Bonjour à tous,

J'ai créé un fichier avec une macro qui me permet de gérer mes stocks en fonction des demandes et des besoins en m'inspirant d'autres fichiers du forum.

Le fichier contient les besoins pour chaque date en colonne et les stocks des différents lots en ligne. J'aimerais cependant faire l'inverse afin d'avoir une meilleure visibilité. Est-ce que quelqu'un pourrait me guider afin d'obtenir ce résultat ? Merci.

Ci-dessous la marco actuelle:

Private Sub Test1()

Dim DerCol As Integer, Col As Integer, DerLig As Integer, Lig As Integer

Dim Commandes As Double

DerCol = Cells(3, Columns.Count).End(xlToLeft).Column

For Col = 3 To DerCol

Commandes = Cells(3, Col)

DerLig = Range("A" & Rows.Count).End(xlUp).Row

If Application.Sum(Range(Cells(6, Col - 1), Cells(DerLig, Col - 1))) >= Commandes Then

For Lig = 6 To DerLig

If Cells(Lig, Col - 1) - Commandes >= 0 Then

Cells(Lig, Col) = Cells(Lig, Col - 1) - Commandes

Commandes = 0

Else

Commandes = Commandes - Cells(Lig, Col - 1)

Cells(Lig, Col) = 0

End If

Next Lig

Else

MsgBox "Commande impossible." & Chr(10) & "Stock épuisé."

End If

Next Col

End Sub