Sub ListNom()
Dim x As Variant
Dim i As Integer
Dim Flag As Boolean
Const myName As String = 'Noms'
On Error Resume Next
With ActiveWorkbook
For Each x In Worksheets
If x.Name = myName Then Flag = True: Exit For
Next
If Flag = False Then
.Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = myName
End If
With .Worksheets(myName)
.Columns(1).ClearContents
.Cells(1, 1).Value = 'FICHIER : ' & myName
For Each x In ActiveWorkbook.Names
.Cells(i + 1, 1).Value = x.Name
.Cells(i + 1, 2).Value = x.RefersTo
i = i + 1
Next
End With
End With