Macro pour Transposition automatique d'une liste

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([E15:E15], Target) Is Nothing And Target.Count = 1 Then
    With Sheets("Feuil2")
    Dim NumeroDeColonne As Byte
    Dim NuméroDeLigne As Long
    NumeroDeColonne = 5
    NuméroDeLigne = 19
    Range("E19:J21") = ""
        For Each Cell In .Range("A2:A" & .Range("C65536").End(xlUp).Row)
            If Cell.Offset(0, 3) = Target.Value Then
                Application.EnableEvents = False
                Cells(NuméroDeLigne, NumeroDeColonne) = Cell
                Cells(NuméroDeLigne + 1, NumeroDeColonne) = Cell.Offset(0, 1)
                Cells(NuméroDeLigne + 2, NumeroDeColonne) = Cell.Offset(0, 2)
                NumeroDeColonne = NumeroDeColonne + 1
                Application.EnableEvents = True
            End If
        Next
    End With
 End If
End Sub

If Cell.Offset(0, 3)

     If Cell.Offset(0, 3) = Target.Value Then
                Application.EnableEvents = False
                Cells(NuméroDeLigne, NumeroDeColonne) = Cell
                Cells(NuméroDeLigne + 1, NumeroDeColonne) = Cell.Offset(0, 1)
                Cells(NuméroDeLigne + 2, NumeroDeColonne) = Cell.Offset(0, [B]2[/B])
                Cells(NuméroDeLigne + 3, NumeroDeColonne) = Cell.Offset(0, [B]4[/B])
                NumeroDeColonne = NumeroDeColonne + 1