Trier une liste

Sub essai()
  [C5:C15].ClearContents
  For Each c In Range("a2:A15")
    If IsError(Application.Match(c, [C2:C4], 0)) Then [C65000].End(xlUp).Offset(1) = c
  Next c
End Sub

Sub test()
  [C5:C15].ClearContents
  Set Pl = [A2:A15]
  a = [TRANSPOSE(COUNTIF(C2:C4, A2:A15))]
  j = 1
  Dim tabl()
  For i = LBound(a) To UBound(a)
    If a(i) = 0 Then
      ReDim Preserve tabl(1 To j)
      tabl(j) = Pl(i).Value: j = j + 1
      End If
    Next i
  [C5].Resize(UBound(tabl)) = Application.Transpose(tabl)
End Sub