Cherche une valeur dans un Array multi-colonne

Type Personne
  Nom As String
  age As Integer
End Type

Sub essai()
  Set d = CreateObject("Scripting.Dictionary")
  n = 5
  Dim a() As Personne: ReDim a(1 To n)
  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
  '--- indexation de la table avec un dico
  For i = 1 To n
    d(a(i).Nom) = i
  Next i
  '----  Recherche
  NomCherché = "Balu"
  MsgBox a(d(NomCherché)).age
End Sub

Sub RecherchePositionElement2()
  a = [{"aa",11;"bb",22;"cc",33;"dd",44}]
  clé= "cc"
  p = Application.Match(clé, Application.Index(a, , 1), 0)
  MsgBox a(p, 2)
End Sub