Option Explicit
Sub Lister_les_cellules_nommees()
Dim Nom As Name
Dim DL As Long
Dim Colonne_Depot As Integer
Colonne_Depot = 1
For Each Nom In ThisWorkbook.Names
DL = Cells(65536, Colonne_Depot).End(xlUp).Row
If Cells(DL, Colonne_Depot).Value = "" Then
Cells(DL, Colonne_Depot).Value = Nom.Name
Else
Cells(DL + 1, Colonne_Depot).Value = Nom.Name
End If
Next
End Sub