algorithme pour trier un tableau de valeur

Type Personne
  Nom As String
  age As Integer
End Type

Sub essai2()
  Dim a(1 To 5) As Personne
  Dim temp As Personne
  a(1).Nom = "Dupont": a(1).age = 40
  a(2).Nom = "Balu": a(2).age = 30
  a(3).Nom = "Charlie": a(3).age = 20
  a(4).Nom = "Durand": a(4).age = 25
  a(5).Nom = "Campas": a(5).age = 35
'---- tri bubble
  For i = 1 To 5
    For j = i To 5
      If a(j).Nom < a(i).Nom Then
         temp = a(j)
         a(j) = a(i)
         a(i) = temp
      End If
    Next j
  Next i
  '--
  For i = 1 To 5
    MsgBox a(i).Nom & " " & a(i).age
  Next i
End Sub