Filtrer /copier et coller

Plage = .Range("A4:N" & .Range("A" & Rows.Count).End(xlUp).Row)

Sub Majour()
    Dim Plage
    
    With Worksheets("feuil1")
        Plage = .Range("A4:N" & .Range("A" & Rows.Count).End(xlUp).Row)
    End With
    With Worksheets("feuil2")
        Nb = UBound(Plage)
        For N = 1 To Nb
            VP = Plage(N, 1)
            NF = Application.CountIf(.Columns(8), VP)
            If NF = 1 Then
                lig = 1
                lig = .Columns(8).Find(VP, .Cells(lig, 8), , xlWhole).Row
                .Range("J" & lig) = Plage(N, 2)
            End If
        Next N
    End With
End Sub