Bonjour tout le monde

J'ai du mal chercher car je suis sûr que le problème a déjà été soulevé, mais je n'ai pas trouvé la solution.

J'ai une feuille Excel toute bête, avec 3 ListBox à l'intérieur.

J'ai fait un tout petit bout de code à l'intérieur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Debug.Print ListBox1.ListIndex
Debug.Print ListBox2.ListIndex
Debug.Print ListBox3.ListIndex
 
For Each shp In ActiveSheet.Shapes
    Debug.Print shp.ListIndex
Next shp
Les trois premières lignes fonctionnent parfaitement.
Arrivé à la ligne 5, Excel met une erreur d'exécution 438 : Propriété ou méthode non gérée par cet objet.

Pourquoi ?
Que faut-il que je fasse ?

Merci d'avance à tous ceux qui pourront m'indiquer la voie de lumière.

Bonne soirée