XL 2016 Macro VBA pour copier tableau qui a un problème

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4:B38")) Is Nothing Then
    x = ActiveCell.Value
    Set c = Feuil1.Range("B1:O124").Find(x, LookIn:=xlValues)
    If Not c Is Nothing Then
        For n = c.Row To Rows.Count
            If Feuil1.Cells(n, c.Column) = "" Then
                fin = n
                Exit For
            End If
        Next
        Sheets("Accueil").Range("J2:K" & Rows.Count) = ""
        Feuil1.Range(Cells(c.Row, c.Column).Address & ":" & Cells(fin, c.Column + 1).Address).Copy Destination:=Sheets("Accueil").Range("J2")
    Else
        MsgBox ("Pas trouvé")
    End If
End If
End Sub