Microsoft 365 Copier coller valeurs cellule si different de #N/A

=SI(ESTERREUR(D2);"";RECHERCHEV(C2;Feuil2!$A$1:$B$5;2;FAUX))

Option Explicit

Sub CpyData()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 7).End(3).Row: If n = 1 Then Exit Sub
  Dim sh As Worksheet, i&, j&: j = 1: Application.ScreenUpdating = 0
  Set sh = Worksheets("Feuil2"): sh.Columns("A:B").ClearContents
  For i = 2 To n
    With Cells(i, 7)
      If Not IsError(.Value) Then
        sh.Cells(j, 1) = .Offset(, -4): sh.Cells(j, 2) = .Value
        j = j + 1
      End If
    End With
  Next i
  sh.Select: Range("A1:B" & j - 1).Borders.LineStyle = 1
End Sub