Sélectionner uniquement les formes dont les noms sont exclusivement numériques

Bonjour la communauté,



Je viens ici vous soumettre mon soucis. En fait j'ai sur une feuille trois (03) types de formes catégorisés par leurs noms. Les noms des deux (02) premiers types sont alphanumériques; les noms de la dernière catégorie sont uniquement numériques.



Ce que j'aimerais, c'est de pouvoir écrire une boucle qui me permette de sélectionner uniquement la dernière catégorie de formes et ainsi pouvoir interagir avec elle. Je tiens à préciser que les nombres identifiants chacune des formes ne se suivent pas de façon homogène (par exemple les 3 premières formes portent les numéros suivant: 11, 17,21, etc).



J'ai essayé de bricoler la macro suivante mais elle ne marche pas:

Sub Selection ()

Dim i as integer



    For Each Shape In ActiveSheet.Shapes
        For i = 11 To 393
            If Shape.Name Like "i" Then
                Shape.Line.ForeColor.RGB = RGB(255, 255, 255)
            End If
        Next
    Next


End sub

Quelqu'un peut m'aider? Merci!