Sub SansDoublonsTrié1()
Dim temp()
Set f = Sheets("TEST")
Set mondico = CreateObject("Scripting.Dictionary")
a = Range(f.[c5], f.[c65000].End(xlUp)).Value
For Each c In a
mondico(c) = ""
Next c
Set dest = f.Range("I13")
dest.Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
dest.Resize(mondico.Count, 1).Sort Key1:=dest, Order1:=xlAscending
Set mondico = Nothing ' libère mondico
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([C5:C200], Target) Is Nothing And Target.Count = 1 Then
SansDoublonsTrié1
End If
End Sub