XL 2016 Lister des éléments d'une base

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("J2")) Is Nothing Then
        Application.ScreenUpdating = False
        Range("J4:L1000").ClearContents
        Ligne = 4: Nom = LCase([J2])
        DL = Range("A65500").End(xlUp).Row
        For L = 2 To Range("A65500").End(xlUp).Row
            If LCase(Cells(L, "C")) = Nom Then
                Cells(Ligne, "J") = Cells(L, "A")
                Cells(Ligne, "K") = Cells(L, "B")
                Cells(Ligne, "L") = Cells(L, "D")
                Ligne = Ligne + 1
            End If
        Next L
    End If
End Sub