Sub Tri(ByRef Liste() As String, bASC As Boolean)
    Dim i As Long, j As Long
    Dim Temp As String
    
    If bASC Then    '  croissant
        For i = LBound(Liste) To UBound(Liste) - 1
            For j = i + 1 To UBound(Liste)
                If Liste(i) > Liste(j) Then
                    Temp = Liste(j)
                    Liste(j) = Liste(i)
                    Liste(i) = Temp
                End If
            Next j
        Next i
    Else            ' décroissant
        For i = LBound(Liste) To UBound(Liste) - 1
            For j = i + 1 To UBound(Liste)
                If Liste(i) < Liste(j) Then
                    Temp = Liste(j)
                    Liste(j) = Liste(i)
                    Liste(i) = Temp
                End If
            Next j
        Next i
    End If
End Sub
'=================================
Sub Exemple_Utilisation()
    Dim i As Long
    Dim MyList(1 To 10) As String
    
    MyList(1) = "1"
    MyList(2) = "2"
    MyList(3) = "4"
    MyList(4) = "8"
    MyList(5) = "7"
    MyList(6) = "3"
    MyList(7) = "9"
    MyList(8) = "5"
    MyList(9) = "0"
    MyList(10) = "6"
    
    
    Debug.Print "TABLEAU AVANT  TRI  :"
    Debug.Print "==================="
    For i = LBound(MyList) To UBound(MyList)
        Debug.Print MyList(i)
    Next i
    
    Debug.Print ""
    Debug.Print "TABLEAU APRèS  TRI  CROISSANT :"
    Debug.Print "==================="
    Call Tri(MyList, True)
    For i = LBound(MyList) To UBound(MyList)
        Debug.Print "/" & MyList(i) & "\"
    Next i
    Debug.Print ""
    Debug.Print "TABLEAU APRèS TRI DéCROISSANT :"
    Debug.Print "==================="
    Call Tri(MyList, False)
    For i = LBound(MyList) To UBound(MyList)
        Debug.Print "/" & MyList(i) & "\"
    Next i
End Sub
'=================================  

imports System.Collection.generic
 
 public function Tri(byval pSrc as ilist(of string)) as list(of string)
     dim lSortLst as new sortedlist(of string,string)
     
     for each lStr as String in psrc
         lsortLst.add(lstr,lStr)
     next
 
     dim lLst as new list(of string)
     
     for i as integer=0 to lSortList.count-1
         llst.add(lSortList.Values(i))
     next
     
     return lLst
 end function
 
 
 
 'Utilisation :
 Dim lTabTrié as list(of string)=Tri(TableauNontrié)
 
 TableauNonTrié peut être des types : 
 - string()
 - list(of string)
 - Tout autre type implémentant IList(of string)
 

private void Sort(List<string> lst, bool asc) 
{
   lst.Sort();
   if (!asc) lst.Reverse(); 
}

// Utilisation
List<string> lst = new List<string>(); 
lst.Add("CodeS-SourceS"); lst.Add("VB");
lst.Add("C#"); lst.Add("Assembler"); 
lst.Add("Python"); lst.Add("Java"); 
// desc
this.Sort(lst, false);

private Sub Sort(ByRef lst as List(Of String), asc as Boolean) 
   lst.Sort()
   If (Not asc) Then
      lst.Reverse()
   End If
End Sub

'Utilisation
Dim lst As List(Of String) = New List(Of String) 
lst.Add("CodeS-SourceS")
lst.Add("VB") 
lst.Add("C#")
lst.Add("Assembler") 
lst.Add("Python")
lst.Add("Java") 
' Desc
Me.Sort(lst, False)

Tableau.sort()

import java.util.Collections;
import java.util.List;

/**
  * Trier une liste de chaînes de caractères.
  */
public static void sortList(List<String> lst, boolean asc) {
    Collections.sort(lst);
    if (!asc) {
       Collections.reverse(lst);
    }
}

<?php

function TRI(&$aArr, $bASC) {
 if ($bASC == true)
  sort($aArr);
 else 
  rsort($aArr);
 return $aArr;
}

$str = "CS;VB;PHP;C#;Java;Python;ASP;Assembleur;Delphi;Windev;SQL;Javascript";
$parse = explode(";", $str);

// avant TRI 
foreach ($parse as $value) {
 echo $value . "<br>";
}
echo "<hr>";

// après TRI 
TRI($parse, true);

foreach ($parse as $value) {
 echo $value . "<br>";
}
?>