[VBA] Importer .emf et plusieurs action sur le fichier importé

Bonjour, je réaliser un fichier qui me doit me permettre d'importer un fichier .emf, et ensuite de le dégrouper. J'ai donc réaliser ce bout de code :

Sub insere_image()

Dim ficimg As Variant
ficimg = Application.GetOpenFilename(".emf,*.emf", , "Choisissez l'image") ' choix nom du fichier
ActiveSheet.Pictures.Insert(ficimg).Select ' insertion With Selection.ShapeRange .LockAspectRatio = False

Set myDocument = Worksheets(1)
For Each S In myDocument.Shapes
 S.Ungroup
Next

End Sub

Le premier problème que je rencontre est que le fichier l'image ne ce décompose pas à 100% d'autant que mes fichiers seront variables et donc le nombre de décompositions à réaliser sera différent. Comment faire une boucle pour que mon code se répète le nombre fois nécessaire sans avoir d'erreur sur la macro ?

Je voudrais ensuite réaliser 3 opérations de plus :

1. Supprimer toutes les formes qui ne sont pas définit comme des Freeform dans excel

2. Appliquer une mise en forme remplissage uni individuellement pour chaque Freefrom

3. Réattribuer les couleurs en fonction de leur couleur d'origine par des couleurs que je choisis