Option Explicit
Dim C As Range, MonDico As Object
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Range("Liste").ClearContents
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In Range("TIE_FRN")
MonDico.Item(C.Value) = MonDico.Item(C.Value) + 1
Next C
Range("F1").Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
End Sub