Option Explicit
Sub NomPlages()
Dim Feuille As Worksheet
Dim FeuilleExiste As Boolean
Dim Nom As Name
Dim Cellule As Range
For Each Feuille In ActiveWorkbook.Sheets
If Feuille.Name = "Noms Définis" Then FeuilleExiste = True
Next Feuille
If FeuilleExiste = True Then
Sheets("Noms Définis").Cells.Delete
Else
Set Feuille = ActiveWorkbook.Sheets.Add()
Feuille.Name = "Noms Définis"
End If
Set Feuille = Sheets("Noms Définis")
With Feuille
.Range("A1") = "Nom"
.Range("B1") = "Référence"
For Each Nom In ActiveWorkbook.Names
Set Cellule = .Range("A65536").End(xlUp)(2)
Cellule = Nom.Name
Cellule(1, 2).Value = "'" & Nom.RefersTo
Next Nom
End With
End Sub