Dim Dico As Object, c As Range
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Sept-2014")
For Each c In .Range("C12", .[C65000].End(xlUp))
Dico(c.Value) = ""
Next c
End With
With Worksheets("Recap")
.[L2].Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End With