Option Explicit
Const LesNoms = "Dupont,Patrick"
Sub copier()
Dim derlig, dercol, t, i&, j&, n&, ref, aux
With Sheets("Feuil1")
If .FilterMode Then .ShowAllData
derlig = .Cells(Rows.Count, "b").End(xlUp).Row
dercol = .Cells(2, Columns.Count).End(xlToLeft).Column
t = .Range(.Range("b2"), .Cells(derlig, dercol))
End With
ref = LCase("," & LesNoms & ","): n = 1
For i = 2 To UBound(t)
If InStr(ref, "," & LCase(t(i, 1)) & ",") > 0 Then
n = n + 1
For j = 1 To UBound(t, 2): t(n, j) = t(i, j): Next
End If
Next i
With Sheets("Feuil2")
If .FilterMode Then .ShowAllData
derlig = .Cells(Rows.Count, "b").End(xlUp).Row
dercol = .Cells(2, Columns.Count).End(xlToLeft).Column
.Range(.Range("b2"), .Cells(derlig, dercol)).ClearContents
.Range("b2").Resize(n, UBound(t, 2)) = t
.Select
End With
End Sub