problème dans un boucle

Salut a tous,

Voilà mon petit soucis

j'ai taper le code suivant :


Private Sub Validerbutton_Click()

Label5.Caption = "Dégraissant conseillé"

For i = 1 To 5
While Sheets("feuil1").Cells(i, 36) <> "utilisable"

If Sheets("feuil1").Cells(i, 36) = "utilisable" Then Label6.Caption = Sheets("feuil1").Cells(1, i)
Next i

End Sub


et quand je veux l’exécuter il me marque une fenêtre d'erreur: "erreur de compilation Next sans For"

pourtant il y a bien un for

Need Help merci d'avance..