Récupérer la référence d'une cellule

Bonjour,

je voudrais savoir comment récupérer la référence "en string" (je crois) d'une cellule. Par exemple, je voudrais savoir comment récupérer "$A$1" pour la cellule (1,1). Donc, je souhaiterais affecter cette valeur à une variable. Je suppose qu'un code du type suivant devrait être obtenu :

Code:

---

1 2 3

Dim x As String x = ....... Cells(1,1) ' et x contiendrait alors "$A$1"

---

Merci d'avance

Bonjour,
une méthode

Code:

---

1 2 3

Dim cellule As Range Set cellule = Cells(1, 1) MsgBox cellule.Address

---

merci