SOS VBA

Bonjour,
Dans le cadre d'un stage je dois effectuer une macro, mais mes connaisssances ds ce domaine sont plus que limitées!
Voici mon problème: je veux determiner à quelle date je dois envoyer une commande, pour ce faire j'effectue l'opération suivante : Approvisinnement-consommation+inventaire j=inventaire j+1...si ce résultat est supérieur à un certain nombre, la macro écrit la date d'aujourdhui (pour la commande), sinon inventaire j+1 devient inventaire j et on renouvelle l'opération jusqu'a ce que inventaire j soit superieur au nombre en question, la macro écrit alors la date j en question.
J'ai qq bases en algo, j'ai donc pu rédiger ces qq lignes sur vba ( qui sont bien sur fausses à la compilation), si cela peut vous aidez à comprendre mon problème...

Public Sub prevision(Date)
Dim inventaire_j As Integer
Dim A As Integer
Dim j As Integer

for j=1 to n do
Cells (D7) - Cells(D8) + Cells(D9) = inventaire_j
If inventaire_j > A Then Cells(D10).Value = Date + j
Else: j = j + 1
End If


End Sub


Merci à tous les courageux qui mettront les mains dans ce cambouï!
Cordialement,