Bonjour,
 j'ai tenté un ti algo de trie a bulle mais il ne semble pas marché quelque vois le probleme???
 
Sub SortTabInteger(ByRef tableau() As String)
    Dim i As Integer
    Dim tmp As String
    Dim j As Integer
    For j = 0 To UBound(tableau)
        For i = 1 To UBound(tableau) + 1
            If CInt(tableau(i - 1)) > CInt(tableau(i)) Then
                tmp = tableau(i)
                tableau(i) = tableau(i - 1)
                tableau(i - 1) = tmp
            End If
        Next i
    Next j
End Sub
 
mici d'avance!!!!