Extraire le nom de la cellule pointée

Salut à tous,

Je cherche à afficher le nom de la cellule pointée dans la feuille en cours.
Voici le début:
J'affiche en "D6" la cellule pointée, en "D7" son contenu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Stockage cellule pointée dans cellules poubelles
[D6] = Target.Address(0, 0) ' Cellule pointée
[D7] = Range([D6].Value) ' Contenu de la cellule pointée
[D8] = "?" ' Nom de la cellule pointée
End Sub

(Petit fichier joint)
Merci d'avance aux caîdes d'excel de m'aider à terminer.