Chaque cellule est caracterisee par une lettre (on se restreint entre A et Z) et un chiffre

Je voudrais une fonction qui renvoie la lettre d'une cellule
Voici ce que j'ai fait:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
letter = Mid(Sheets("Sheet4").Range("VarianceGrahm").Dependents.Formula, 2, 1)
C'est pas beau
Vous avez une meilleure idee?
Mer6