For Each nom In Names
If nom.RefersTo = "=Feuil1!$C:$C" Then MsgBox (nom.Name)
Next
Function nomplage(feuille As String, colonne As Integer)
lettre = Chr(64 + colonne)
For Each nom In Names
If nom.RefersTo = "=" & feuille & "!$" & lettre & ":$" & lettre Then nomplage = nom.Name
Next
End Function
Sub essai()
MsgBox (nomplage("Feuil1", 3))
End Sub