Trie avec fin de mot

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim tablosplit As Variant
Dim i As Integer
Dim j As Byte, k As Byte
Dim temp

tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)
ReDim Preserve tablo(1 To UBound(tablo), 1 To 2)

For i = 1 To UBound(tablo)
        tablosplit = Split(tablo(i, 1), ' ')
        tablo(i, 2) = tablosplit(1)
Next i

For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
                If tablo(i, 2) < tablo(j, 2) Then
                        For k = 1 To 2
                                temp = tablo(i, k)
                                tablo(i, k) = tablo(j, k)
                                tablo(j, k) = temp
                        Next k
                End If
        Next j
Next i

For i = 1 To UBound(tablo)
        Cells(i, 2) = tablo(i, 1)
Next i
               
       
End Sub

Cliquez pour agrandir...