Code VBA pour Carte interactive

Option Explicit
'Procédure permettant de rendre interactive la carte géographique
'constituée de zones de textes
'**********************************
Sub CarteInteractive()

'déclaration des variables
Dim NomShape As String
Dim Shape
'propriété Caller : permettre d'afficher la manière dont VB est appelé
NomShape = Application.Caller
'mise en couleur de la carte de Tunisie
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
' on affecte une couleur lorsque la forme est sélectionnée
ActiveSheet.Shapes(NomShape).Fill.ForeColor.RGB = RGB(0, 150, 0) 'couleur verte

End Sub