Hi,

I solved using only the form: mod_SortAndUnique
Now in a spreadsheet use

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tArr() As Variant
    ReDim tArr(0)
    For Each celle In Target
        i = i + 1
        tArr(UBound(tArr)) = celle.Column
        ReDim Preserve tArr(UBound(tArr) + 1)
    Next
    Product = SORTSDARRAY(tArr, Ascending)
    Product = UNIQUEVALUES(Product)
    For Each COLONNA In Product
        MsgBox COLONNA
    Next
End Sub