Quelqu'un peut m'expliquer pourquoi ce code plante ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub insererImageDiagrammeBulle()
 
Dim nomFichier As String
 
With UserForm1.CommonDialogInsererImage
    .CancelError = False
    .DialogTitle = "Inserer une image"
    .Filter = "Images (*.bmp;*.jpg;*.gif;*.ico;*.png)|*.bmp;*.jpg;*.gif;*.ico;*.png|Tous les fichiers (*.*)|*.*"
    .FilterIndex = 1
    .InitDir = CurDir
    .Filename = ""
    .ShowOpen
    nomFichier = .Filename
End With
 
' Si choix = Ouvrir
If nomFichier <> "" Then
'Ligne qui fait planter le tout
    ActiveSheet.Shapes("ImageBulle").Picture = LoadPicture(nomFichier) 
End If
 
End Sub
L'erreur est la suivante :
"Propriété ou méthode non gérée par cet objet"

Pourtant : il y a bien une forme dont le nom est "ImageBulle" sur ma feuille.
D'ailleurs quand je fais un ActiveSheet.Shapes("ImageBulle").Select et que je l'exécute, c'est la bonne forme qui est sélectionée.

Ensuite cet objet ImageBulle a bien une propriété Picture, puisque c'est un objet de type Image , et je la vois bien cette propriété, lorsque j'affiche les propriétés de l'objet.

De plus y a meme pas 1h, je faisais le même code et ça marchait !

De quoi vous faire peter un cake, ce VBA
(Désolé pour ceux qui aiment, mais j'ai connu plus agréable, comme langage)