Comment trier de A à Z dans excell

Option Explicit
Option Base 1

Sub Trier_plage()
 Dim Test As Boolean
 Dim Temp As String
 Dim Lig As Byte, Col As Byte
 Dim Plage_Tri As Range
  
Set Plage_Tri = Range("B4:D34")
ReDim Temp_Array(Plage_Tri.Count) As String

'Conversion de Matrice à Vecteur
For Lig = 1 To Plage_Tri.Rows.Count
  For Col = 1 To Plage_Tri.Columns.Count
    Temp_Array(Lig + (Col - 1) * Plage_Tri.Rows.Count) = Plage_Tri(Lig, Col)
    Next Col
Next Lig

'Triage du Vecteur
Do
Test = False
For Lig = LBound(Temp_Array) To UBound(Temp_Array) - 1
  If Temp_Array(Lig) = "" Then Temp_Array(Lig) = Chr$(255)
    If Temp_Array(Lig) > Temp_Array(Lig + 1) Then
      Temp = Temp_Array(Lig)
      Temp_Array(Lig) = Temp_Array(Lig + 1)
      Temp_Array(Lig + 1) = Temp
      Test = True
    End If
Next Lig
Loop Until Not Test

'Conversion de Vecteur à Matrice
For Lig = 1 To Plage_Tri.Rows.Count
  For Col = 1 To Plage_Tri.Columns.Count
    If Temp_Array(Lig + (Col - 1) * Plage_Tri.Rows.Count) = Chr$(255) Then
      Plage_Tri(Lig, Col) = ""
    Else
      Plage_Tri(Lig, Col) = Temp_Array(Lig + (Col - 1) * Plage_Tri.Rows.Count)
    End If
  Next Col
Next Lig

End Sub