Afficher lettre colonne d'une cellule donnée

Bonjour à tous, mon problème se résume plus vite avec un exemple qu'avec une une phrase :

je voudrais ecrire la formule "A1/$B$3-1" dans B1,"A2/$B$3-1" dans B2... et je ne sais pas comment obtenir le "A"...voici mon code,il ecrit déjà "k/$B$3-1" dans la cellule d'indice de ligne k de la colonne sélectionnée:

Sub way()
Dim cellule1 As Object, cellule2 As Object, k As Integer, l As Long
Set cellule1 = Application.InputBox(prompt:="choisir une cellule", Type:=8)
l = cellule1.Column
For Each cellule2 In Selection
k = cellule2.Row
cellule2 = "=" & k & "/$B$3-1"
Next
End Sub

Donc il reste juste trouver comment ecrire la lettre de la cellule1 sélectionnée avant le "k"(j'ai la fonction qui transforme un entier en la lettre qui lui correspond). Ca doit être tout bête mais je n'ai encore jamais confronté ce pb. Merci d'avance.