XL 2013 Récupérer dans une chaine de caractere un ensemble commençant par A

=SIERREUR(INDEX(FILTRE.XML("<a><b>"&SUBSTITUE($A2;"-";"</b><b>")&"</b></a>";"//b");COLONNES($C:C));"")

' tabloA est un tableau à une dimension dont le premier indice est 0 (et non pas 1)
' le premier élément de tabloA (donc d'indice 0) contient le nombre de mots de X commençant par un "A"
' les éléments suivants d'indice 1 à T(0) contiennent les mots commençant par un "A"
'
' soit X = "a11+toto+a10-ABC"
' alors TabloA est un tableau dont l'élément d'indice 0 contient le nombre 3
' et les éléments d'indice 1 à 3 contiennent respectivement A11, A10 et ABC

Function tabloA(ByVal X As String)
Dim i&, s, n&, r()
   X = UCase(X)
   For i = 1 To Len(X)
      Select Case Mid(X, i, 1)
         Case " ", "A" To "Z", "0" To "9":
         Case Else: X = Replace(X, Mid(X, i, 1), " ")
      End Select
   Next i
   X = Application.Trim(X): ReDim r(0 To 0)
   s = Split(X)
   For i = 0 To UBound(s)
      If Left(s(i), 1) = "A" Then n = n + 1: ReDim Preserve r(0 To n): r(n) = s(i)
   Next i
   r(0) = n: tabloA = r
End Function