Bonjour,
Petit rectificatif du code de SabV que je salue
Si la valeur à chercher est dans la colonne "AA"
If Not IsError(Application.Match(TextBox1.Value, Sheets("BDD").Range("AA:AA"), 0)) Then
Ou sinon, une petite fonction personnalisée
Function ValExiste(Wks As String, sCol As String, vSearch As String) As Boolean
ValExiste = False
ValExiste = Not IsError(Application.Match(vSearch, Sheets(Wks).Range(sCol & ":" & sCol), 0))
End Function
Que l'on appelle de la façon suivante
IF ValExiste("BDD","AA","Toto") then
A+