Correction d'une macro

Bonjour,

J'ai crée une macro qui réalise ma planification néanmoins je n'arrive pas à trouver mon erreur :

Option Explicit

Dim i&, j&, bes&, pdp&, tl&

Sub CompléterLaPlanif()

'Avant tout calculer combien dans la boite à lot du lundi par réference :

'exemple lundi = colonne J / nombre de jours (d3)'le calcul correspond à la colonne J file d'attente actualisée'

'Faire la macro ci dessous pour le lundi : et une fois fini faire derniere consigne en vert avabt end if et recommencer ainsi de suite

For j = 20 To 32 Step 3

For i = 5 To 12

pdp = 13

bes = 10

tl = 15

While Cells(i, bes).Value < Cells(i, pdp).Value

While Cells(i, bes).Value / (Cells(i, tl).Value * Cells(3, 4).Value)

If Cells(i, j).Value < Range("O" & i) Then

Cells(i, j + 1).Value = 0

Else

Cells(i, j + 1).Value = Application.RoundUp(Cells(i, bes).Value / Range(i, tl), 0) * Range(i, tl)

'recalculer combien il me reste à produire juste après avoir produit le chiffre de la cellule u5 6 7 8 9 10 11 12.

' exemple mardi = colonne J - u5 / nombre de jours (d3)

' et trier pour les resultats dans l'ordre décroissant pour reprendre la macro en priorisant le résultat le plus grand

End If

Wend

Next i

Next j

End Sub

Quelqu'un pour m'aider ?