VBA aide SVP :) pb dans boucle for

Bonjour,
j'ai un pb avec mon programme: il me dit "Erreur de Compilation: Next sans for" alors que j'ai un for!!!
merci de m'aider!

voici le programme: (c'est pour convertir un texte a l'aide d'un code A vaut K...)

Sub coder_texte()
texte_a_coder = Range("texte_a_coder").Value
longueur_texte = Len(texte_a_coder)
message_code = ""
For j = 1 To longueur_texte
lettre = Mid(texte_a_coder, j, 1)
lettre = UCase(lettre)
Worksheets("code").Select
For i = 2 To 39
If j Mod 2 = 0 Then
If Worksheets("code").Cells(i, 2).Value = lettre Then
lettre = Worksheets("code").Cells(i, 3).Value

Else
If Worksheets("code").Cells(i, 2).Value = lettre Then
lettre = Worksheets("code").Cells(i, 4).Value

End If

Next i
message_code = message_code & lettre
Next j
Worksheets("codeur").Select
Worksheets("codeur").Range("texte_decode").Value = message_code

End Sub