Function UNIQUE(ByVal Src) As Variant()
Dim TArg(), TRés(), L As Long
TArg = CLsCAs.MSujetCBx.SujetCBx(Src)(0)
ReDim TRés(1 To Application.Caller.Rows.Count, 1 To 1)
For L = 1 To UBound(TRés, 1)
If L < UBound(TArg) + 2 Then TRés(L, 1) = TArg(L - 1) Else TRés(L, 1) = ""
Next L
UNIQUE = TRés
End Function