Le code se bloc

salut les experts

voici la derniere partie du code de la facturation

il bloc dans la boucle est je n'ai pas reussi a le corriger pouvez vous m'aider

merci d'avance

Wend
If (test = True) Then
Exit Sub
Else
choix_utilisateur = MsgBox("la facture est prete, souhaitez-vous l'imprimer et mettre a jour les stocks ?", vbYesNo)
If (choix_utilisateur = 6) Then
For Each cellule In ThisWorkbook.Worksheets("FACTURE").Range("D11:D120")
ligne = 2
While (Workbooks("catalogue.xlsx").Worksheets("feuil1").Cells(ligne, 18).Value <> "")
If (cellule.Value = Workbooks("catalogue.xlsx").Worksheets("feuil1").Cells(ligne, 1).Value) Then
Workbooks("catalogue.xlsx").Worksheets("feuil1").Cells(ligne, 4).Value = Workbooks("catalogue.xlsx").Worksheets("feuil1").Cells(ligne, 4).Value + ThisWorkbook.Worksheets("FACTURE").Cells(cellule.Row, 3).Value
End If
ligne = ligne + 1

Wend
Next cellule
Else
Exit Sub
End If
End If
ThisWorkbook.Worksheets("facturation").PrintPreview

End Sub

Il manque tout le début de la procédure et le chemin du fichier catalogue.xlsx.
Mettez-nous plutôt votre fichier.

merci pour votre interet

le problème venait du fait que la zone de recherche était toute la feuille cad + de 1400000 ligne

ce qui fait qu'il tardait dans le calcul

merci beaucoup