Déplacement de données

Bonjour

à partir d'une feuille de calcul(Feuille1 ), je souhaiterai déplacer des éléments d'un tableau de façon automatique en renseignant une cellule, si le contenu de cette cellule correspond à une donnée de la colonne A, alors tout les elements qui se trouvent sur la meme ligne que la cellule identifié doivent etre deplacés et mis en colonne en Feuill2 .

j'ai essayé de faire le code suivant , mais il ne fonctionne pas

Private Sub Worksheet_change(ByVal Target As Range)

Application.ScreenUpdating = False
Lg = Target.Row

If Range("J5") = Range("A1:A") Then

Range("A" & Lg & ":F" & Lg).Copy
Sheets("Feuil2").Range("H5").PasteSpecial Transpose:=True

Else

MsgBox "le contenu de j5 ne se trouve pas dans le tableau ! ", vbOKOnly + vbInformation, "ATTENTION"

End If

End Sub

je vous joins mon fichier en vous remerciant de l'attention accordé et des conseils donnés

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg&, c As Range
    If Not Application.Intersect(Target, Range("j5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Count > 1 Then Exit Sub
        Lg = Range("a" & Rows.Count).End(xlUp).Row

        Set c = Range("a1:a" & Lg).Find(Target, LookIn:=xlValues)
        If Not c Is Nothing Then
            Range(c.Address).Resize(1, 7).Copy
            Sheets("Feuil2").Range("H4").PasteSpecial Transpose:=True
            Application.CutCopyMode = False
        Else
            MsgBox "le contenu de j5 ne se trouve pas dans le tableau ! ", _
            vbOKOnly + vbInformation, "ATTENTION"
        End If
    End If
End Sub

Amicalement

Claude

Bonjour DUBOIS , merci pour ton code ! je n'en aurais jamais fais autant (à mon niveau) je pensais que cela pouvait etre simple !

en te remerciant infiniment !

cordialement , Rocket