Public Function TriNombre(ByVal TabATrier As Single()) As String
'Utilisation de la méthode Sort
Dim Result As String = String.Empty
Call System.Array.Sort(TabATrier)
'construction de lachaine de résultat
For Each it As Single In TabATrier
Result += it.ToString & vbNewLine
Next
Return Result
End Function