Re Stéphane !
Voilà, j'ai fait une manip avec l'enregistreur de macro, puis j'ai légèrement modifié la macro dans l'editeur.
Voilà ce que celà donne en gros :
Sub Macro1()
Range("B3:B22").Select
Selection.Find(What:=[D2], After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Select
ActiveCell.Offset(0, 2).Value = "Bof"
End Sub
En premier ma plage de recherche : B3:B22
Puis la recherche avec comme critère le contenu de la cellule D2 :
Selection.Find(What:=[D2], After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Select
Puis pour le fun j'ai fait une action bidon :
ActiveCell.Offset(0, 2).Value = "Bof"
Regarde l'exemple joint.
@ +
Moa