Sub Copie_tableau_job75_origine()
Dim F As Worksheet, critere$, tablo, i&, n&, j%, t0
t0 = Timer
Set F = Feuil2 'CodeName de la feuille de destination
F.Range("A2:F" & F.Rows.Count).Delete 'RAZ
critere = F.[j1] 'ou Feuil1.[j1]
tablo = Feuil1.UsedRange.Resize(, 4) 'matrice, plus rapide
For i = 2 To UBound(tablo)
If tablo(i, 1) Like critere Then
n = n + 1
For j = 1 To 4: tablo(n, j) = tablo(i, j): Next
End If
Next
If n Then F.[a2].Resize(n, 4) = tablo
'F.Columns.AutoFit 'ajustement largeurs
F.Visible = xlSheetVisible 'si la feuille est masquée
Application.Goto F.[A1], True 'cadrage
MsgBox Format(Timer - t0, "0.000_sec")
End Sub