Sub Effacer()
Dim P As Range, t1, t2, d As Object, i&
Set P = Feuil1.[A1:A147] 'à adapter
t1 = P 'matrice, plus rapide
t2 = Feuil2.[K2:K214] 'à adapter
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t2)
d(t2(i, 1)) = ""
Next
For i = 1 To UBound(t1)
If Not d.exists(t1(i, 1)) Then t1(i, 1) = ""
Next
P = t1
End Sub