[VBA] Tri tableau multidimensionnel

Function SortTable(ByRef tablo() As Variant, ByVal nbItem As Integer)
    Dim i, j, k As Integer
    Dim buffer(1, 3) As Variant
    Dim temp, indice As Integer
    Dim newTab() As Variant
    ReDim newTab(nbItem, 3)
    
    For j = 0 To nbItem - 1
        temp = "200"
        For i = 0 To nbItem - 1
            If (tablo(i, 2) < temp) And (tablo(i, 2) > 0) Then
                temp = tablo(i, 2)
                For k = 0 To 3
                    'record whole line in buffer
                    indice = i
                    buffer(1, k) = tablo(i, k)
                Next k
            End If
        Next i
        If buffer(1, 1) <> "" Then
            tablo(indice, 2) = -1
            For k = 0 To 3
                newTab(j, k) = buffer(1, k)
            Next k
        End If
        
        'reset of indice and buffer
        indice = 0
        For k = 0 To 3
            buffer(1, k) = ""
        Next k
    Next j
    
    SortTable = newTab
    
End Function