Vlookup en vba

Bonjour,

Je débute et j'essaie de développer un petit bout de programme pour m'aider à planifier une production...
Toutefois cela ne marche pas du tout... vous pourriez m'aider svp?

Sub planification_ligne1()

sac = 5

For i = 12 To 43
For j = 43 To (43 + sac)

stockcuir = Application.WorksheetFunction.VLookup(Cells(4, j), Worksheets("PDP").Range("B23:AQ37"), i - 1, False)
If Range(9, j) > 0 Then
If stockcuir > Range(5, i).Value Then
If Range(i, 100).Value < 0.9 Then
Range(i, j).Value = Range(i, j).Value + 1
End If
End If
End If
Next
Next

End Sub


Merci bcp de votre aide