VBA macro afficher nom de cellule dans colonne à  côté

Voici une petite macro qui permet d’afficher les noms de cellule d’une colonne dans une autre colonne.

Pratique pour le développement.

Function listeNames(zone, decalagex)
NumLigne = 1
'dans la ligne ci-dessous, indiquez bon range
For Each cellule In ThisWorkbook.Sheets(2).Range(zone).Cells
On Error Resume Next

Dim Ok As Boolean
Dim i As Integer
Ok = False

Set nms = ActiveWorkbook.Names
For i = 1 To nms.Count
'MsgBox(nms(i).Name)
If nms(i).RefersToRange.Address = cellule.Address Then Ok = True
Next

If Ok = True Then
Nom_Cell = cellule.Name.Name
'MsgBox (Nom_Cell)
'dans la ligne ci-dessous modifier le 0,1 par le x,y de deplacement par rapport a la cellule active
cellule.Offset(0, decalagex) = Nom_Cell
Nom_Cell = ""
End If

NumLigne = NumLigne + 1
Next cellule

End Function

Public Sub exec()
    Call listeNames("C1:C90", 2)
    Call listeNames("I51:I62", 2)
    Call listeNames("S53:S77", 2)
    Call listeNames("H15:H22", 1)

End Sub