[ACCESS VBA] Boucle avec OpenRecord

Bonjour,
je souhaite faire un boucle pour chercher une valeur de priorité. Par exemple sur je trouve la valeur 1 en priorité je passe a la recherche de la valeur 2.
Si je ne trouve pas la valeur 1, je cherche la valeur 2 et si je la trouve je la renomme en 1 et ainsi de suite sur toute les priorités.

Je ne comprends pas pourquoi la valeur 2 qui est trouvé quand la valeur 1 n'existe pas n'est pas écrasé :
La valeur 2 existe bien... GRRRR

Ci dessous mon code :

Sub Priorite()

...

Dim i As Integer
Dim j As Integer
Dim NBDEIPriorite As Integer
NBDEIPriorite = DCount("*", "RequêteDEIPrioriserEtape0")

Dim NomTable1 As String
Dim oRst1 As DAO.Recordset
Dim odb As DAO.Database
Dim Message As String
Set odb = CurrentDb
NomTable1 = "TB_DEI"
'Set oRst1 = odb.OpenRecordset(NomTable1)

Set db = CurrentDb()
Set oRst1 = odb.OpenRecordset("RequêteDEIPrioriserEtape0")
Set Base_Priorite = db.OpenRecordset("TB_DEI")

i = 1

'For i = 1 To NBDEIPriorite
While Not oRst1.EOF
If NatureTable = 2 Then Base_Priorite.FindFirst ("NumPriorite=" & i & "")
If NatureTable = 1 Then Base_Priorite.Index = "NumPriorite"
If NatureTable = 1 Then Base_Priorite.Seek "=", i

If Base_Priorite.NoMatch = True And NatureTable = 2 Then Base_Priorite.FindFirst ("NumPriorite=" & i + 1 & "")
If Base_Priorite.NoMatch = True And NatureTable = 1 Then Base_Priorite.Index = "NumPriorite"
If Base_Priorite.NoMatch = True And NatureTable = 1 Then Base_Priorite.Seek "=", i + 1

If Base_Priorite.NoMatch = False Then Base_Priorite.Edit
If Base_Priorite.NoMatch = False Then Base_Priorite("NumPriorite") = i

i = i + 1
If i = 3 Then Exit Sub

oRst1.MoveNext
Wend

End Sub