Pour info cette fonction convertit par exemple A en 1 ... ZZ en 702 et même au delà
Function Lettre2NumCol(ByVal Chaine As String) As Long
Dim i As Long, ValeurCh As Long
Const ChaineAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To Len(Chaine)
ValeurCh = InStr(1, ChaineAlpha, Mid(UCase(Chaine), i, 1))
Lettre2NumCol = Lettre2NumCol * 26 + ValeurCh
Next
End Function