Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MonDico As Object, C As Range
Application.ScreenUpdating = False
[Pl].ClearContents
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In Range("B5", [B65000].End(xlUp))
MonDico(C.Value) = C.Value
Next C
Feuil2.[A1].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
Application.ScreenUpdating = True
End Sub