Merci BrunoM45,mais ca oblige a avoir des fichiers sur le PC,alors que je souhaite d'avoir le tout en un.
Pour la macro que j'ai c'est comme cela
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("Z2").Value = 1 Then ActiveSheet.Shapes("AIN").Fill.ForeColor.SchemeColor = 2
If Range("Z2").Value <> 1 Then ActiveSheet.Shapes("AIN").Fill.ForeColor.SchemeColor = 1
If Range("Z2").Value = 2 Then ActiveSheet.Shapes("AISNE").Fill.ForeColor.SchemeColor = 2
If Range("Z2").Value <> 2 Then ActiveSheet.Shapes("AISNE").Fill.ForeColor.SchemeColor = 1
If Range("Z2").Value = 3 Then ActiveSheet.Shapes("ALLIER").Fill.ForeColor.SchemeColor = 2
If Range("Z2").Value <> 3 Then ActiveSheet.Shapes("ALLIER").Fill.ForeColor.SchemeColor = 1
ETC jusqu'à (val d'oise) pour la 1ère zone de liste déroulante
If Range("AL2").Value = 1 Then ActiveSheet.Shapes("AIN").Fill.ForeColor.SchemeColor = 2
If Range("AL2").Value <> 1 Then ActiveSheet.Shapes("AIN").Fill.ForeColor.SchemeColor = 1
If Range("AL2").Value = 2 Then ActiveSheet.Shapes("AISNE").Fill.ForeColor.SchemeColor = 2
If Range("AL2").Value <> 2 Then ActiveSheet.Shapes("AISNE").Fill.ForeColor.SchemeColor = 1
If Range("AL2").Value = 3 Then ActiveSheet.Shapes("ALLIER").Fill.ForeColor.SchemeColor = 2
If Range("AL2").Value <> 3 Then ActiveSheet.Shapes("ALLIER").Fill.ForeColor.SchemeColor = 1
ETC jusqu'à (val d'oise) pour la 2ème zone de liste déroulante
Or,il n'y a que la deuxième qui fonctionne pour colorer le département qui est selectionné sur la carte de France.
Il n'y a pas une moyen de les mettre toutes les 2 sur la même feuille.