Function unique2007(r As Range)
Dim c As New Collection, Lig&, a&
If r.Rows.Count = Rows.Count Then Set r = r.Resize(Cells(Rows.Count, r.Column).End(xlUp).Row)
t = r.Value
ReDim t2(1 To UBound(t), 1 To 1)
For Lig = 1 To UBound(t)
t2(Lig, 1) = ""
If t(Lig, 1) <> "" Then
On Error Resume Next
c.Add t(Lig, 1), t(Lig, 1)
If Err.Number = 0 Then a = a + 1: t2(a, 1) = t(Lig, 1)
End If
Err.Clear
Next Lig
unique2007 = t2
End Function