Copier une ligne entiere suivant une cellule

Bonjour ,

Je cherche a recopier la ligne entier d'un onglet dans un autre onglets suivant une meme cellule de reference .

Voir exemple .

Merci d'avance pour votre aide

PS : j'ai bq de lignes

Bonjour,

par macro

Sub recopie()
Dim fo As Worksheet, fr As Worksheet
Set fo = Sheets("Origine")
Set fr = Sheets("Resultat")

Dim celR As Range, celO As Range
For Each celR In fr.Range("A1:A" & fr.Cells(Rows.Count, 1).End(xlUp).Row)
    Set celO = fo.Columns("A").Find(celR)
    If Not celO Is Nothing Then
        fo.Rows(celO.Row).Copy Destination:=celR
    End If
Next
End Sub

Bonjour et merci Steelson,

Merci cela correspond tout a fait à la demande .

Serait il possible de la modifier ?

Dans l'onglet origine , les X commencent à la deuxième ligne

Dans onglet résultat , les X commencent en ligne 2 et colonne N . Les lignes a copier doivent débuter en colonne P ( il y a des données a conserver en colonne O )

J'ai modifier le fichier Test

Encore merci pour ton aide

Voici

Sub recopie()
Dim fo As Worksheet, fr As Worksheet
Set fo = Sheets("Origine")
Set fr = Sheets("Resultat")

Dim celR As Range, celO As Range
For Each celR In fr.Range("N2:N" & fr.Range("N" & Rows.Count).End(xlUp).Row)
    Set celO = fo.Columns("A").Find(celR)
    If Not celO Is Nothing Then
        fo.Range(fo.Cells(celO.Row, 2), fo.Cells(celO.Row, 6)).Copy Destination:=celR.Offset(0, 2)
    End If
    Set cel0 = Nothing
Next
End Sub