Copie cellule adjacente après recherche valeur

Bonjour,

Je souhaiterais rechercher une valeur (située en K2 de la Feuil1) dans la Feuil2 colonne A.

Une fois celle-ci trouvée dans la colonne A de la Feuil2, je voudrais copier le contenu de la cellule adjacente (en colonne B) vers la Feuil1 cellule D8.

C'est une sorte de recherchev, mais j'aimerais le faire par macro car cette cellule est susceptible d'être modifiée ...

Merci par avance de votre aide.

Bonjour,

avec Feuil1 active :

    If [Feuil2!A:A].Find([K2], LookIn:=xlValues) Is Nothing Then
        [D8] = ""
    Else
        [D8] = c.Offset(, 1)
    End If

eric

Bonjour Eric,

Merci pour ta réponse très rapide.

Mais j'ai un souci lorsque la macro tourne. En effet, j'ai une erreur d'éxécution 424 : Objet requis ...

Dans le débogueur il surligne : [D8] = c.Offset(, 1)

Comme je n'y comprends rien en VBA ...

Sais-tu ce qu'il veut ?

Edit : c'est bon, j'ai trouvé ! J'ai déclaré C en fait et ça fonctionne. Merci encore Eric !

Re,

déclare le comme ça :

dim c as range

eric

Ok merci Éric !