Fonction VLOOKUP

Bonjour,

Essaie comme cela

Sub test()
Dim L
    m = "<Nom Cherché>"
    With Sheets("BDD")
        DL = .Range("A" & Rows.Count).End(xlUp).Row
        L = Application.Match(m, .Range("A1:A" & DL), 0)
        If Not IsError(L) Then .Range("A" & L).Value = 0
    End With
End Sub

A+

BONSOIR Gyrus .

C'est tout à fait ce qu'il me faut .Un grand merci à toi.

Je me permets de soumettre un autre souci , (s'il fallait créer un autre post je m'en excuse).

Comment pourrais je effectuer par vba une mise à jour d'une base de données ( noms prénoms age sexe....) en retirant tous les noms "Namor" par exemple?

merci de votre aide

Bien à vous

Merci beaucoup Gyrus ,
j'ouvre un autre post pour soumettre la demande d'aide sur la maj de la base de données
Bien à vous