For i = LBound(Tablo, 2) To UBound(Tablo, 2)
For j = LBound(Tablo, 2) + ii To UBound(Tablo, 2)
If Descending = False Then
If Tablo(C0, i) > Tablo(C0, j) Then
Tmp1 = Tablo(0, j) [color=FF0000]:[/color] Tmp2 = Tablo(1, j) [color=FF0000]:[/color] Tmp3 = Tablo(2, j) [color=FF0000]:[/color] Tmp4 = Tablo(3, j)
Tablo(0, j) = Tablo(0, i) [color=FF0000]:[/color] Tablo(1, j) = Tablo(1, i) [color=FF0000]:[/color] Tablo(2, j) = Tablo(2, i) [color=FF0000]:[/color] Tablo(3, j) = Tablo(3, i)
Tablo(0, i) = Tmp1 [color=FF0000]:[/color] Tablo(1, i) = Tmp2 [color=FF0000]:[/color] Tablo(2, i) = Tmp3 [color=FF0000]:[/color] Tablo(3, i) = Tmp4
End If
Else
If Tablo(C0, i) < Tablo(C0, j) Then
Tmp1 = Tablo(0, j) [color=FF0000]:[/color] Tmp2 = Tablo(1, j) [color=FF0000]:[/color] Tmp3 = Tablo(2, j) [color=FF0000]:[/color] Tmp4 = Tablo(3, j)
Tablo(0, j) = Tablo(0, i) [color=FF0000]:[/color] Tablo(1, j) = Tablo(1, i) [color=FF0000]:[/color] Tablo(2, j) = Tablo(2, i) [color=FF0000]:[/color] Tablo(3, j) = Tablo(3, i)
Tablo(0, i) = Tmp1 [color=FF0000]:[/color] Tablo(1, i) = Tmp2 [color=FF0000]:[/color] Tablo(2, i) = Tmp3 [color=FF0000]:[/color] Tablo(3, i) = Tmp4
End If
End If
Next j
ii = ii + 1
Next i