Quelqu'un a une idée de pourquoi ce code ne passe pas ?

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
Sub redimensionnerImage(nomImage As String, nomReference As String)
    Dim facteurLargeur As Double
    Dim facteurHauteur As Double
 
 
    facteurLargeur = ActiveSheet.Shapes(nomReference).Width / ActiveSheet.Shapes(nomImage).Picture.Width 'Ligne cause d'erreur
 
' Précision : ce qui ne passe pas, c'est la 2ème partie de la ligne, c'est à dire le Shapes(nomImage).Picture.Width
 
    facteurHauteur = ActiveSheet.Shapes(nomReference).Height / ActiveSheet.Shapes(nomImage).Range.Height 'Ligne cause d'erreur
 
 
    ActiveSheet.Shapes(nomImage).Picture.Width = ActiveSheet.Shapes(nomImage).Picture.Width * facteurLargeur
    ActiveSheet.Shapes(nomImage).Picture.Height = ActiveSheet.Shapes(nomImage).Picture.Height * facteurHauteur
 
End Sub