codlet = 64
devant = ""
For i = 0 To 100 ' === à toi d'aller faire ainsi mumuse jusqu'où tu veux au lieu de 100 ...
j = i Mod 26
If j = 0 Then devant = String(i \ 26, "A"): codlet = 65
lettre = devant & Chr(codlet + j)
MsgBox lettre
Next
MsgBox Split(Cells(1, 1214).Address, "$")(1)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question