Sub Extraction_doublon()
Application.Calculation = xlCalculationManual
Sheets("EVOLUTION").[B3:B5000].ClearContents'efface
With Sheets("DATA")
Set dico = CreateObject("Scripting.Dictionary")
For Each c In .Range(.[J2], .[J65000].End(xlUp))
dico.Item(c.Value) = dico.Item(c.Value)
Next c
Sheets("EVOLUTION").[B3].Resize(dico.Count, 1) = Application.Transpose(dico.keys)
End With
Application.Calculation = xlCalculationAutomatic
End Sub