Problème de macro avec Microsoft Word

Bonjour,

J'ai un petit problème que je m'éfforce de résoudre depuis pas
mal de temps.Je souhaite dans un document word recuperer les
textes dans les cellules (Shapes) et pouvoir faire une sorte de
synthèse.J'ai donc coder une macros de ce type:

Sub synthese()
    i = 1
    Selection.TypeText ("Synthèse:" & vbCrLf & vbCrLf)
    For x = 1 To ActiveDocument.Shapes.Count
            Text = ActiveDocument.Shapes.Item(x).TextFrame.TextRange.Text
            Selection.TypeText (i & ")" & Chr(9) & Text)
            i = i + 1
    Next
End Sub

Ce code fonctionne or mis qu'il me donne les cellules dans l'ordre de création et non pas
par ordre d'apparence.

Mon but est de pouvoir coder soit une fonction "SORT" qui met les Shapes dans un conteneur
et qui les trient ou bien existe t'il déja une fonction ?

Merci d'avance.