re,
en exécutant la macro Sub test_shape
sur le premier fichier transmit,
le résultat est le suivant (voir ligne 110-111-112) de Feuil1
TYPE NAME
........
........
6 Group 3 'Corse
13 Picture 9 'Belgique
13 Picture 11 'Allemagne
Sub test_shape()
Sheets.Add After:=Sheets(Sheets.Count)
With Sheets("France")
On Error Resume Next
For i = 1 To .DrawingObjects.Count
Cells(i + 1, 1) = .DrawingObjects(i).ShapeRange.Type
Cells(i + 1, 2) = .DrawingObjects(i).Name
Next
End With
End Sub
la différence de type entre les objets influence le code à utilisé
au fil des années (des versions excel) plusieurs objets ont été expérimentées sur Office
les objets correspondant à ton code sont de type 5 et 6 (Shape et Groupe)
les objets de type 13 (Picture) sont rejetés selon le code utilisé sur ton fichier.
sur l'exemple suivant j'ai modifié les objets Belgique et Allemagne en groupe mais selon la possibilité de xl2010
et donc pas l'effet attendu. seulement une parti de l'image du groupe change de couleur.