Public Function IsExistNameRange(ByVal NameRange As String) As Boolean
Dim n As Name
For Each n In ActiveWorkbook.Names
If LCase(n.Name) = LCase(NameRange) Then IsExistNameRange = True: Exit Function
Next n
End Function
Sub EXEMPLE()
' savoir si une plage de données est nommé PasDefini et test (j'ai nommé que test) :
MsgBox IsExistNameRange("PasDefini") 'retourne FAUX
MsgBox IsExistNameRange("test") 'retourne VRAI
End Sub