tri tableau à 2 dimensions

Sub sort(ByRef arrayname() As Variant)
Dim SortColumn1 As Integer
Dim j As Integer

Dim y As Integer
Dim t As Variant
Dim condition1 As Boolean
SortColumn1 = 1
 For i = LBound(arrayname, 1) To UBound(arrayname, 1) - 1
     For j = LBound(arrayname, 1) To UBound(arrayname, 1) - 1
          condition1 = arrayname(j, SortColumn1) < arrayname(j + 1, SortColumn1)
          If condition1 Then
            For y = LBound(arrayname, 2) To UBound(arrayname, 2)
                t = arrayname(j, y)
                arrayname(j, y) = arrayname(j + 1, y)
                arrayname(j + 1, y) = t
                Next y
            End If
        Next
    Next

End Sub