A la réflexion, je pense que cela vient du fait que tu travailles sur un Mac et moi sur un PC.
On va essayer autrement.
Ouvre ton fichier, celui que tu as joint à ton premier message.
Fait un clic droit dans l'onglet de la feuille "Accueil" et choisis "Visualiser le code" pour ouvrir VBA
Dans la feuille VBA qui a en première ligne la macro "Sub clicOnShape()", tu colles à la suite de la dernière ligne la macro suivante :
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("I2:K34")) Is Nothing Then
For Each Shape In ActiveSheet.Shapes
Shape.Fill.ForeColor.RGB = RGB(55, 125, 128)
Next Shape
Nom = Target.Value
ActiveSheet.Shapes(Nom).Fill.ForeColor.RGB = RGB(220, 220, 220)
End If
End Sub
Retourne sur la feuille "Accueil" et clique sur un nom de département.
Dis moi alors ce qu'il se passe.
Bonne chance !
Bye !