Incrémentation de lettres

Bonjour à tous,

Le code ci-dessous permet d'incrementer les indices or la modification ne se fait pas sur Worksheets("courrier").Range("N6") mais bien sur cell1.Value quelqu'un saurait comment palier cela ?

Merci d'avance !

For Each cell1 In Worksheets("Data").Range("R7:R" & Derl1)
If Worksheets("courrier").Range("N6").Value <> "" And Worksheets("courrier").Range("J6").Value <> "" Then
z = Worksheets("courrier").Range("N6")
If Len(z) = 1 And z <> Chr(90) Then
   d = Chr(Asc(z) + 1)
ElseIf Len(z) = 1 And z = Chr(90) Then
   d = "AA"
ElseIf Len(z) = 2 And z <> "ZZ" Then
   d = RAP(URAP(z) + 1)
Else
   d = ""
End If
If cell1.Offset(0, -1).Value = Worksheets("courrier").Range("J6").Value Then
z = d
cell1.Value = z
cell1.Offset(0, -2).Value = "Envoyé"

End If
Else
If cell1.Offset(0, -2).Value = "Programmé" Then
cell1.Value = "A"
cell1.Offset(0, -2).Value = "Envoyé"
Worksheets("courrier").Range("N6").Value = "A"
End If
End If
Next

Function RAP(ByVal x%) As String
Dim i&, j&, k&
x = x - 1
i = Int(x / 676)
j = i * 26
k = Int((x - j) / 26)
RAP = Chr$(65 + k) & Chr$(65 + x - k * 26)
End Function

Function URAP(z$) As Integer
Dim j&, k%
j = (Asc(Mid(z, 1, 1)) - 65) * 26
k = (Asc(Right(z, 1)) - 65)
URAP = j + k + 1
End Function

salut

tu devrais joindre tout le fichier complet afin que les gens puisse le tester directement plus vite ....

J'ai trouvé la solution, problème d'agencement et d'ordre

If Worksheets("courrier").Range("N6").Value <> "" And Worksheets("courrier").Range("J6").Value <> "" Then
z = Worksheets("courrier").Range("N6")
If Len(z) = 1 And z <> Chr(90) Then
    d = Chr(Asc(z) + 1)
ElseIf Len(z) = 1 And z = Chr(90) Then
    d = "AA"
ElseIf Len(z) = 2 And z <> "ZZ" Then
    d = RAP(URAP(z) + 1)
Else
    d = ""
End If
y = d
End If

For Each cell1 In Worksheets("Data").Range("R7:R" & Derl1)
If cell1.Offset(0, -1).Value = Worksheets("courrier").Range("J6").Value Then
cell1.Value = y
Worksheets("courrier").Range("N6") = y
cell1.Offset(0, -2).Value = "Envoyé"
End If
If cell1.Offset(0, -2).Value = "Programmé" And _
Worksheets("courrier").Range("N6").Value = "" And _
Worksheets("courrier").Range("J6").Value = "" Then
cell1.Value = "A"
cell1.Offset(0, -2).Value = "Envoyé"
Worksheets("courrier").Range("N6").Value = "A"
End If
Next