Recherche puis collage par macro

Bonjour,

Je souhaiterais connaître le code qui me permettrait de rechercher une valeur présente dans la 1ère colonne d'une feuille puis coller à côté de celle-ci des données (sous forme de ligne) présentes dans une autre feuille ?

Pour être plus clair :

• en H5 de la Feuil1, j'ai par exemple le mot Maison (celui ci peut varier)
• de I5 à N5 de la Feuil1, toute une série de données à recopier sur la Feuil2 lorsque j'aurai retrouvé le contenu de ma cellule H5
• Feuil2 colonne A : colonne de correspondance avec la cellule H5 de la Feuil1
• Feuil2 colonnes B à G, colonnes receptionnant les données I5 à N5 de la Feuil1

Merci par avance de votre aide

Bonsoir

Un code qui devrait faire l'affaire

Option Explicit

Sub Recopie()
Dim Cel As Range

  With Sheets("Feuil2")
    Set Cel = .Columns("A").Find(what:=Range("H5"), LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Range("I5:N5").Copy .Range("B" & Cel.Row)
    End If
  End With
End Sub

Merci Banzai64 !

Je teste aujourd'hui et vous tiens au courant.

Merci encore Banzai64 !

Ca fonctionne nickel.

A bientôt.