Adresse d'un bouton ???

Bonsoir le forum,

Je n'arrive pas à récupérer l'adresse de la cellule où est posé mon bouton (Bouton, pas un command button)
J'ai fait cette macro:

Sub adresse()
Dim T As Single, L As Single, cel As Range
T = ActiveSheet.Shapes(Application.Caller).Top
L = ActiveSheet.Shapes(Application.Caller).Left
ActiveSheet.Range("L5") = L & T
End Sub

Mais j’obtiens: 13,5339,75 et je voudrais "B21"
Je sais pas convertir en adresse de cellule ...

Si quelqu'un a une idée ...