Bonsoir à tous,
blacksap tu peux faire comme suit :
Sub Action1()
Dim C As Range
Dim x As Range
Set x = Cells(1, 2)
If x = "" Then Exit Sub 'si la cellule B1 est vide (fin de la macro)
'Selection de toute la colonne A
With Columns(1)
Set C = .Find(What:=x.Text)
End With
If Not C Is Nothing Then C.Select 'on sélectionne la cellule trouvée
else Msgbox"Pas de valeur "
End if
End Sub
A+++