Problème de boucle dabs VBA Access

Bonjour,

J'ai un problème dans Access VBA : sur le code suivant, j'ai une erreur de compilation Wend sans While :

Dim MaRequete As Recordset
Set MaRequete = CurrentDb.OpenRecordset("R_EcritureNonDebite", dbOpenDynaset)
On Error Resume Next

With MaRequete
.MoveFirst
While .EOF = False

If !chkCloture = 0 Then
!DateBanque = Null
Else
!DateBanque = Forms![F_ClotureEcriture]![Calendar].Value
.Update
.MoveNext

Wend
.Close
End With
End Sub

J'ai essayé avec des DO et des Loop et j'ai exacgtement le meme problème. QQ'un a-t-il une idée ? C'est certainement une erreur de débutant.?
D'avance merci,

XP via parallèle desktop sous OS10