Sub esb()
Dim t(), t1(), t2(), i As Long, x As Long, m As Object, c As Byte
Set m = CreateObject("Scripting.Dictionary")
t2 = Feuil1.Range("a1:a" & Feuil1.Cells(Rows.Count, 1).End(3).Row)
t = Feuil2.Range("a1:j" & Feuil2.Cells(Rows.Count, 1).End(3).Row)
For i = 1 To UBound(t2)
If Not m.Exists(t2(i, 1)) Then m.Add t2(i, 1), t2(i, 1)
Next i
ReDim t1(1 To UBound(t), 1 To 10)
For i = 1 To UBound(t)
If Not m.Exists(t(i, 1)) Then
x = x + 1
For c = 1 To 10: t1(x, c) = t(i, c): Next c
End If
Next i
Feuil3.[a1].Resize(x, 10) = t1
End Sub