Sub es()
Dim t(), t1(), t2(), i As Long, x As Long, s As Long, m As Object
Set m = CreateObject("Scripting.Dictionary")
With ActiveWorkbook.Sheets("NomFeuille1") 'nom à adapter
t2 = .Range("a1:a" & .Cells(.Rows.Count, 1).End(3).Row)
End With
With ActiveWorkbook.Sheets("NomFeuille2") 'nom à adapter
t = .Range("a1:a" & .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 1)
x = 1
For i = 1 To UBound(t)
If Not m.Exists(t(i, 1)) Then t1(x, 1) = t(i, 1): x = x + 1
Next i
.[b1].Resize(UBound(t1), 1) = t1
End With
Erase t, t1, t2: Set m = Nothing
End Sub