Bonjour,
J'essaye de créer un tableau de correspondance entre les noms et les cellules

Voici mon code pour le moment:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub Memoriser_Nom()
Dim ligne As Integer
ligne = 2
    For Each Nom In ActiveWorkbook.Names
    ligne = ligne + 1
    Cells(ligne, 33).Value = Nom
    Cells(ligne, 34).Value = Nom.Range
    Next
End Sub
"Nom.Range" n'existe pas, ni "Nom.Address", je ne sais pas ce qu'il faut utiliser.
Auriez vous une idée?

Merci d'avance