recherche la même valeur que cellule nommée

For Each information_nommee In Names [COLOR="seagreen"]'pour toutes les informations "nommées",[/COLOR]
    If information_nommee.Name = "Dupond" Then [COLOR="seagreen"]'si l'une d'elles répond au nom de "Dupond"[/COLOR]
        lieu_zone = information_nommee [COLOR="SeaGreen"]'lieu_zone est l'adresse de mon nom[/COLOR]
    End If
Next

Option Explicit
Sub test()
Dim x As Range
With Sheets("AB_base")
    Set x = .Columns(5).Find(Range("toto").Value, , xlValues, xlWhole, , , False)
End With
If Not x Is Nothing Then MsgBox "trouvé dans la cellule " & x.Address
End Sub