Autres (RESOLU)Erreur d'exécution 13

Option Explicit
'****************************************************
'Procédure permettant de rendre la carte interactive
'****************************************************
Sub CarteInteractive()
'Déclaration des variables
Dim NomCadre As String
Dim Shape

'Propriété caller : permettre d'afficher la manière dont vb est appelé
NomCadre = Application.Caller

'Mise en couleur par défaut de la carte
For Each Shape In ActiveSheet.Shapes 'pour chacune des formes de la feuille active
 Shape.Fill.ForeColor.RGB = RGB(0, 0, 200) 'on applique une couleur bleue à la forme
Next Shape

End Sub