Bonjour stephane et le forum,
Une possibilité se trouve dans ce lien (cf. rubrique "Comment obtenir la valeur en lettre de la colonne ?") :
<http://bidou.developpez.com/faqvba/?page=1.3.3#RefLet>
Autre solution :
sAdr = ActiveCell.Address(1, 0)
MsgBox Mid(sAdr, 1, InStr(1, sAdr, "$") - 1)
Slts
wally