Et tu veux absolument une macro pour ça ?
La fonction RECHERCHEV rend le même service, en beaucoup moins compliqué ... C'est bien, la retraite ! Surtout aux Antilles ... :-)
☻ Raymond ♂

Bonjour

Comme toujours il y a plusieurs façon de le faire mais ceci me parait le plus simple :

Dim sel As Variant
    Set sel = Columns(1).Cells.Find("ta recherche")
    If Not sel Is Nothing Then ActiveCell.Value = sel.Offset(0, 1).Value

Salut,

Ah je vois que tu monde est arrivé sur la discussion, je mets tout de même un code basique facile à modifier, sans vouloir griller la politesse à mes amis que je salut avant de partir vers le soleil

si j'ai bien tout compris, sinon ignorez cette proposition

Sub test()
Range("A65536").End(xlUp).Select 'sélectionne la première cellule non vide colonne A
Do While ActiveCell <> Cells(1, ActiveCell.Column) 'boucle jusqu'a la première cellule de la colonne
Do While ActiveCell.Value <> "O" 'entre parenthèse le mot à chercher
If ActiveCell = Cells(1, ActiveCell.Column) Then Exit Sub 'si arrive à la première cellule de la colonne sorti de procédure
ActiveCell.Offset(-1, 0).Select
Loop
ActiveCell = ActiveCell.Offset(1, 0) 'si mot trouvé, copie la cellule inférieure
Loop
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)