Macro WORKSHEET trop grande

Question

Bonjour, j'ai fait ce programme relativement long (grosse bidouille), il fonctionnait très bien au début et a force il est devenu trop long (d'après Excel ) ce programme me permet de colorer des communes sur une carte en fonction du chargé d'affaire. est ce qu'un expert pourrait m'aider en le réduisant si c'est possible. PROGRAMME: Private Sub Worksheet_Change(ByVal Target As Range) 'AIX-EN-PROVENCE'''' If Target = Range("B2") Then With Shapes.Range(Array("AIX")).Fill If Range("B2") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B2") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B2") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B2") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B2") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B2") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B2") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ALLAUCH'''' If Target = Range("B3") Then With Shapes.Range(Array("ALLAUCH")).Fill If Range("B3") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B3") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B3") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B3") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B3") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B3") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B3") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ALLEINS '''' If Target = Range("B4") Then With Shapes.Range(Array("ALLEINS")).Fill If Range("B4") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B4") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B4") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B4") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B4") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B4") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B4") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ARLES '''' If Target = Range("B5") Then With Shapes.Range(Array("ARLES")).Fill If Range("B5") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B5") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B5") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B5") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B5") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B5") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B5") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'AUBAGNE '''' If Target = Range("B6") Then With Shapes.Range(Array("AUBAGNE")).Fill If Range("B6") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B6") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B6") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B6") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B6") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B6") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B6") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'AUREILLE '''' If Target = Range("B7") Then With Shapes.Range(Array("AUREILLE")).Fill If Range("B7") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B7") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B7") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B7") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B7") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B7") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B7") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'AURIOL '''' If Target = Range("B8") Then With Shapes.Range(Array("AURIOL")).Fill If Range("B8") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B8") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B8") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B8") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B8") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B8") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B8") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'AURONS '''' If Target = Range("B9") Then With Shapes.Range(Array("AURONS")).Fill If Range("B9") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B9") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B9") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B9") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B9") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B9") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B9") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LA BARBEN '''' If Target = Range("B10") Then With Shapes.Range(Array("LA BARBEN")).Fill If Range("B10") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B10") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B10") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B10") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B10") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B10") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B10") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'BARBENTANE '''' If Target = Range("B11") Then With Shapes.Range(Array("BARBENTANE")).Fill If Range("B11") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B11") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B11") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B11") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B11") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B11") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B11") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LES BAUX-DE-PROVENCE '''' If Target = Range("B12") Then With Shapes.Range(Array("LES BAUX-DE-PROVENCE")).Fill If Range("B12") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B12") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B12") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B12") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B12") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B12") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B12") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'BEAURECUEIL '''' If Target = Range("B13") Then With Shapes.Range(Array("BEAURECUEIL")).Fill If Range("B13") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B13") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B13") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B13") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B13") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B13") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B13") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'BELCODENE '''' If Target = Range("B14") Then With Shapes.Range(Array("BELCODENE")).Fill If Range("B14") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B14") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B14") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B14") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B14") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B14") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B14") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'BERRE-L'ETANG '''' If Target = Range("B15") Then With Shapes.Range(Array("BERRE-L'ETANG")).Fill If Range("B15") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B15") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B15") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B15") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B15") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B15") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B15") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'BOUC-BEL-AIR '''' If Target = Range("B16") Then With Shapes.Range(Array("BOUC-BEL-AIR")).Fill If Range("B16") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B16") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B16") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B16") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B16") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B16") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B16") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LA BOUILLADISSE '''' If Target = Range("B17") Then With Shapes.Range(Array("LA BOUILLADISSE")).Fill If Range("B17") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B17") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B17") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B17") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B17") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B17") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B17") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'BOULBON '''' If Target = Range("B18") Then With Shapes.Range(Array("BOULBON")).Fill If Range("B18") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B18") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B18") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B18") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B18") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B18") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B18") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CABANNES '''' If Target = Range("B19") Then With Shapes.Range(Array("CABANNES")).Fill If Range("B19") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B19") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B19") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B19") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B19") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B19") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B19") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CABRIES '''' If Target = Range("B20") Then With Shapes.Range(Array("CABRIES")).Fill If Range("B20") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B20") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B20") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B20") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B20") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B20") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B20") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CADOLIVE '''' If Target = Range("B21") Then With Shapes.Range(Array("CADOLIVE")).Fill If Range("B21") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B21") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B21") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B21") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B21") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B21") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B21") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CARRY-LE-ROUET '''' If Target = Range("B22") Then With Shapes.Range(Array("CARRY-LE-ROUET")).Fill If Range("B22") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B22") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B22") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B22") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B22") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B22") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B22") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CASSIS '''' If Target = Range("B23") Then With Shapes.Range(Array("CASSIS")).Fill If Range("B23") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B23") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B23") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B23") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B23") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B23") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B23") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CEYRESTE '''' If Target = Range("B24") Then With Shapes.Range(Array("CEYRESTE")).Fill If Range("B24") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B24") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B24") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B24") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B24") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B24") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B24") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CHARLEVAL '''' If Target = Range("B25") Then With Shapes.Range(Array("CHARLEVAL")).Fill If Range("B25") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B25") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B25") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B25") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B25") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B25") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B25") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CHATEAUNEUF-LE-ROUGE '''' If Target = Range("B26") Then With Shapes.Range(Array("CHATEAUNEUF-LE-ROUGE")).Fill If Range("B26") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B26") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B26") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B26") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B26") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B26") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B26") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CHATEAUNEUF-LES-MARTIGUES '''' If Target = Range("B27") Then With Shapes.Range(Array("CHATEAUNEUF-LES-MARTIGUES")).Fill If Range("B27") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B27") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B27") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B27") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B27") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B27") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B27") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CHATEAURENARD '''' If Target = Range("B28") Then With Shapes.Range(Array("CHATEAURENARD")).Fill If Range("B28") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B28") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B28") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B28") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B28") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B28") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B28") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LA CIOTAT '''' If Target = Range("B29") Then With Shapes.Range(Array("LA CIOTAT")).Fill If Range("B29") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B29") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B29") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B29") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B29") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B29") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B29") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CORNILLON-CONFOUX '''' If Target = Range("B30") Then With Shapes.Range(Array("CORNILLON-CONFOUX")).Fill If Range("B30") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B30") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B30") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B30") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B30") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B30") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B30") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CUGES-LES-PINS '''' If Target = Range("B31") Then With Shapes.Range(Array("CUGES-LES-PINS")).Fill If Range("B31") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B31") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B31") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B31") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B31") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B31") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B31") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LA DESTROUSSE '''' If Target = Range("B32") Then With Shapes.Range(Array("LA DESTROUSSE")).Fill If Range("B32") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B32") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B32") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B32") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B32") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B32") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B32") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'EGUILLES '''' If Target = Range("B33") Then With Shapes.Range(Array("EGUILLES")).Fill If Range("B33") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B33") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B33") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B33") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B33") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B33") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B33") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ENSUES-LA-REDONNE '''' If Target = Range("B34") Then With Shapes.Range(Array("ENSUES-LA-REDONNE")).Fill If Range("B34") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B34") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B34") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B34") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B34") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B34") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B34") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'EYGALIERES '''' If Target = Range("B35") Then With Shapes.Range(Array("EYGALIERES")).Fill If Range("B35") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B35") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B35") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B35") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B35") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B35") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B35") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'EYGUIERES '''' If Target = Range("B36") Then With Shapes.Range(Array("EYGUIERES")).Fill If Range("B36") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B36") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B36") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B36") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B36") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B36") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B36") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'EYRAGUES '''' If Target = Range("B37") Then With Shapes.Range(Array("EYRAGUES")).Fill If Range("B37") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B37") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B37") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B37") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B37") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B37") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B37") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LA FARE-LES-OLIVIERS '''' If Target = Range("B38") Then With Shapes.Range(Array("LA FARE-LES-OLIVIERS")).Fill If Range("B38") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B38") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B38") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B38") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B38") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B38") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B38") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'FONTVIEILLE '''' If Target = Range("B39") Then With Shapes.Range(Array("FONTVIEILLE")).Fill If Range("B39") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B39") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B39") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B39") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B39") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B39") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B39") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'FOS-SUR-MER '''' If Target = Range("B40") Then With Shapes.Range(Array("FOS-SUR-MER")).Fill If Range("B40") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B40") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B40") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B40") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B40") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B40") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B40") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'FUVEAU'''' If Target = Range("B41") Then With Shapes.Range(Array("FUVEAU")).Fill If Range("B41") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B41") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B41") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B41") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B41") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B41") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B41") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'GARDANNE'''' If Target = Range("B42") Then With Shapes.Range(Array("GARDANNE")).Fill If Range("B42") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B42") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B42") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B42") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B42") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B42") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B42") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'GEMENOS'''' If Target = Range("B43") Then With Shapes.Range(Array("GEMENOS")).Fill If Range("B43") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B43") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B43") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B43") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B43") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B43") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B43") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'GIGNAC-LA-NERTHE'''' If Target = Range("B44") Then With Shapes.Range(Array("GIGNAC-LA-NERTHE")).Fill If Range("B44") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B44") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B44") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B44") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B44") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B44") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B44") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'GRANS'''' If Target = Range("B45") Then With Shapes.Range(Array("GRANS")).Fill If Range("B45") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B45") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B45") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B45") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B45") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B45") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B45") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'GRAVESON'''' If Target = Range("B46") Then With Shapes.Range(Array("GRAVESON")).Fill If Range("B46") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B46") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B46") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B46") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B46") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B46") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B46") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'GREASQUE'''' If Target = Range("B47") Then With Shapes.Range(Array("GREASQUE")).Fill If Range("B47") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B47") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B47") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B47") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B47") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B47") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B47") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ISTRES'''' If Target = Range("B48") Then With Shapes.Range(Array("ISTRES")).Fill If Range("B48") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B48") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B48") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B48") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B48") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B48") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B48") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'JOUQUES'''' If Target = Range("B49") Then With Shapes.Range(Array("JOUQUES")).Fill If Range("B49") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B49") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B49") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B49") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B49") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B49") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B49") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LAMANON'''' If Target = Range("B50") Then With Shapes.Range(Array("LAMANON")).Fill If Range("B50") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B50") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B50") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B50") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B50") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B50") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B50") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LAMBESC'''' If Target = Range("B51") Then With Shapes.Range(Array("LAMBESC")).Fill If Range("B51") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B51") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B51") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B51") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B51") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B51") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B51") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LANCON-PROVENCE'''' If Target = Range("B52") Then With Shapes.Range(Array("LANCON-PROVENCE")).Fill If Range("B52") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B52") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B52") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B52") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B52") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B52") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B52") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MAILLANE'''' If Target = Range("B53") Then With Shapes.Range(Array("MAILLANE")).Fill If Range("B53") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B53") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B53") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B53") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B53") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B53") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B53") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MALLEMORT'''' If Target = Range("B54") Then With Shapes.Range(Array("MALLEMORT")).Fill If Range("B54") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B54") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B54") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B54") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B54") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B54") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B54") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MARIGNANE'''' If Target = Range("B55") Then With Shapes.Range(Array("MARIGNANE")).Fill If Range("B55") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B55") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B55") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B55") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B55") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B55") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B55") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MARTIGUES'''' If Target = Range("B56") Then With Shapes.Range(Array("MARTIGUES")).Fill If Range("B56") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B56") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B56") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B56") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B56") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B56") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B56") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MAS-BLANC-DES-ALPILLES'''' If Target = Range("B57") Then With Shapes.Range(Array("MAS-BLANC-DES-ALPILLES")).Fill If Range("B57") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B57") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B57") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B57") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B57") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B57") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B57") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MAUSSANE-LES-ALPILLES''' If Target = Range("B58") Then With Shapes.Range(Array("MAUSSANE-LES-ALPILLES")).Fill If Range("B58") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B58") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B58") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B58") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B58") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B58") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B58") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MEYRARGUES''' If Target = Range("B59") Then With Shapes.Range(Array("MEYRARGUES")).Fill If Range("B59") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B59") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B59") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B59") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B59") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B59") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B59") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MEYREUIL''' If Target = Range("B60") Then With Shapes.Range(Array("MEYREUIL")).Fill If Range("B60") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B60") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B60") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B60") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B60") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B60") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B60") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-PIERRE-DE-MEZOARGUES''' If Target = Range("B61") Then With Shapes.Range(Array("SAINT-PIERRE-DE-MEZOARGUES")).Fill If Range("B61") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B61") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B61") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B61") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B61") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B61") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B61") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MIMET''' If Target = Range("B62") Then With Shapes.Range(Array("MIMET")).Fill If Range("B62") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B62") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B62") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B62") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B62") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B62") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B62") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MIRAMAS''' If Target = Range("B63") Then With Shapes.Range(Array("MIRAMAS")).Fill If Range("B63") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B63") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B63") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B63") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B63") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B63") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B63") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MOLLEGES''' If Target = Range("B64") Then With Shapes.Range(Array("MOLLEGES")).Fill If Range("B64") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B64") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B64") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B64") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B64") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B64") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B64") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'MOURIES''' If Target = Range("B65") Then With Shapes.Range(Array("MOURIES")).Fill If Range("B65") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B65") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B65") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B65") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B65") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B65") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B65") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'NOVES''' If Target = Range("B66") Then With Shapes.Range(Array("NOVES")).Fill If Range("B66") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B66") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B66") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B66") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B66") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B66") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B66") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ORGON''' If Target = Range("B67") Then With Shapes.Range(Array("ORGON")).Fill If Range("B67") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B67") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B67") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B67") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B67") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B67") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B67") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PARADOU''' If Target = Range("B68") Then With Shapes.Range(Array("PARADOU")).Fill If Range("B68") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B68") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B68") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B68") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B68") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B68") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B68") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PELISSANNE''' If Target = Range("B69") Then With Shapes.Range(Array("PELISSANNE")).Fill If Range("B69") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B69") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B69") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B69") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B69") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B69") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B69") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LA PENNE-SUR-HUVEAUNE''' If Target = Range("B70") Then With Shapes.Range(Array("LA PENNE-SUR-HUVEAUNE")).Fill If Range("B70") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B70") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B70") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B70") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B70") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B70") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B70") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LES PENNES-MIRABEAU''' If Target = Range("B71") Then With Shapes.Range(Array("LES PENNES-MIRABEAU")).Fill If Range("B71") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B71") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B71") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B71") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B71") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B71") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B71") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PEYNIER'' If Target = Range("B72") Then With Shapes.Range(Array("PEYNIER")).Fill If Range("B72") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B72") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B72") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B72") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B72") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B72") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B72") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PEYPIN'' If Target = Range("B73") Then With Shapes.Range(Array("PEYPIN")).Fill If Range("B73") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B73") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B73") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B73") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B73") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B73") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B73") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PEYROLLES-EN-PROVENCE'' If Target = Range("B74") Then With Shapes.Range(Array("PEYROLLES-EN-PROVENCE")).Fill If Range("B74") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B74") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B74") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B74") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B74") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B74") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B74") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PLAN-DE-CUQUES'' If Target = Range("B75") Then With Shapes.Range(Array("PLAN-DE-CUQUES")).Fill If Range("B75") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B75") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B75") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B75") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B75") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B75") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B75") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PORT-DE-BOUC'' If Target = Range("B77") Then With Shapes.Range(Array("PORT-DE-BOUC")).Fill If Range("B77") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B77") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B77") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B77") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B77") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B77") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B77") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PORT-SAINT-LOUIS-DU-RHONE'' If Target = Range("B78") Then With Shapes.Range(Array("PORT-SAINT-LOUIS-DU-RHONE")).Fill If Range("B78") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B78") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B78") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B78") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B78") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B78") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B78") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'PUYLOUBIER'' If Target = Range("B79") Then With Shapes.Range(Array("PUYLOUBIER")).Fill If Range("B79") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B79") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B79") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B79") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B79") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B79") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B79") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LE PUY-SAINTE-REPARADE'' If Target = Range("B80") Then With Shapes.Range(Array("LE PUY-SAINTE-REPARADE")).Fill If Range("B80") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B80") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B80") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B80") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B80") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B80") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B80") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ROGNAC'' If Target = Range("B81") Then With Shapes.Range(Array("ROGNAC")).Fill If Range("B81") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B81") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B81") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B81") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B81") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B81") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B81") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ROGNES'' If Target = Range("B82") Then With Shapes.Range(Array("ROGNES")).Fill If Range("B82") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B82") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B82") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B82") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B82") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B82") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B82") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ROGNONAS'' If Target = Range("B83") Then With Shapes.Range(Array("ROGNONAS")).Fill If Range("B83") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B83") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B83") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B83") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B83") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B83") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B83") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LA ROQUE-D'ANTHERON'' If Target = Range("B84") Then With Shapes.Range(Array("LA ROQUE-D'ANTHERON")).Fill If Range("B84") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B84") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B84") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B84") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B84") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B84") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B84") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ROQUEFORT-LA-BEDOULE'' If Target = Range("B85") Then With Shapes.Range(Array("ROQUEFORT-LA-BEDOULE")).Fill If Range("B85") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B85") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B85") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B85") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B85") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B85") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B85") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ROQUEVAIRE'' If Target = Range("B86") Then With Shapes.Range(Array("ROQUEVAIRE")).Fill If Range("B86") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B86") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B86") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B86") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B86") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B86") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B86") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'ROUSSET'' If Target = Range("B87") Then With Shapes.Range(Array("ROUSSET")).Fill If Range("B87") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B87") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B87") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B87") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B87") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B87") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B87") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LE ROVE'' If Target = Range("B88") Then With Shapes.Range(Array("LE ROVE")).Fill If Range("B88") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B88") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B88") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B88") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B88") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B88") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B88") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-ANDIOL''' If Target = Range("B89") Then With Shapes.Range(Array("SAINT-ANDIOL")).Fill If Range("B89") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B89") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B89") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B89") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B89") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B89") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B89") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-ANTONIN-SUR-BAYON''' If Target = Range("B90") Then With Shapes.Range(Array("SAINT-ANTONIN-SUR-BAYON")).Fill If Range("B90") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B90") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B90") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B90") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B90") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B90") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B90") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-CANNAT''' If Target = Range("B91") Then With Shapes.Range(Array("SAINT-CANNAT")).Fill If Range("B91") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B91") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B91") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B91") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B91") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B91") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B91") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-CHAMAS''' If Target = Range("B92") Then With Shapes.Range(Array("SAINT-CHAMAS")).Fill If Range("B92") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B92") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B92") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B92") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B92") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B92") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B92") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-ESTEVE-JANSON''' If Target = Range("B93") Then With Shapes.Range(Array("SAINT-ESTEVE-JANSON")).Fill If Range("B93") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B93") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B93") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B93") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B93") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B93") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B93") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-ETIENNE-DU-GRES''' If Target = Range("B94") Then With Shapes.Range(Array("SAINT-ETIENNE-DU-GRES")).Fill If Range("B94") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B94") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B94") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B94") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B94") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B94") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B94") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-MARC-JAUMEGARDE''' If Target = Range("B95") Then With Shapes.Range(Array("SAINT-MARC-JAUMEGARDE")).Fill If Range("B95") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B95") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B95") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B95") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B95") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B95") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B95") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINTES-MARIES-DE-LA-MER'' If Target = Range("B96") Then With Shapes.Range(Array("SAINTES-MARIES-DE-LA-MER")).Fill If Range("B96") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B96") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B96") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B96") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B96") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B96") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B96") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-MARTIN-DE-CRAU'' If Target = Range("B97") Then With Shapes.Range(Array("SAINT-MARTIN-DE-CRAU")).Fill If Range("B97") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B97") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B97") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B97") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B97") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B97") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B97") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-MITRE-LES-REMPARTS'' If Target = Range("B98") Then With Shapes.Range(Array("SAINT-MITRE-LES-REMPARTS")).Fill If Range("B98") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B98") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B98") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B98") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B98") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B98") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B98") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-PAUL-LES-DURANCE'' If Target = Range("B99") Then With Shapes.Range(Array("SAINT-PAUL-LES-DURANCE")).Fill If Range("B99") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B99") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B99") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B99") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B99") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B99") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B99") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-REMY-DE-PROVENCE'' If Target = Range("B100") Then With Shapes.Range(Array("SAINT-REMY-DE-PROVENCE")).Fill If Range("B100") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B100") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B100") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B100") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B100") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B100") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B100") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-SAVOURNIN'' If Target = Range("B101") Then With Shapes.Range(Array("SAINT-SAVOURNIN")).Fill If Range("B101") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B101") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B101") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B101") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B101") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B101") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B101") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAINT-VICTORET'' If Target = Range("B102") Then With Shapes.Range(Array("SAINT-VICTORET")).Fill If Range("B102") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B102") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B102") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B102") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B102") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B102") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B102") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SALON-DE-PROVENCE'' If Target = Range("B103") Then With Shapes.Range(Array("SALON-DE-PROVENCE")).Fill If Range("B103") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B103") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B103") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B103") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B103") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B103") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B103") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SAUSSET-LES-PINS'' If Target = Range("B104") Then With Shapes.Range(Array("SAUSSET-LES-PINS")).Fill If Range("B104") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B104") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B104") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B104") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B104") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B104") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B104") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SENAS'' If Target = Range("B105") Then With Shapes.Range(Array("SENAS")).Fill If Range("B105") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B105") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B105") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B105") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B105") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B105") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B105") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SEPTEMES-LES-VALLONS'' If Target = Range("B106") Then With Shapes.Range(Array("SEPTEMES-LES-VALLONS")).Fill If Range("B106") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B106") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B106") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B106") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B106") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B106") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B106") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'SIMIANE-COLLONGUE'' If Target = Range("B107") Then With Shapes.Range(Array("SIMIANE-COLLONGUE")).Fill If Range("B107") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B107") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B107") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B107") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B107") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B107") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B107") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'TARASCON'' If Target = Range("B108") Then With Shapes.Range(Array("TARASCON")).Fill If Range("B108") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B108") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B108") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B108") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B108") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B108") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B108") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'LE THOLONET'' If Target = Range("B109") Then With Shapes.Range(Array("LE THOLONET")).Fill If Range("B109") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B109") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B109") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B109") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B109") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B109") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B109") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'TRETS'' If Target = Range("B110") Then With Shapes.Range(Array("TRETS")).Fill If Range("B110") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B110") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B110") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B110") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B110") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B110") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B110") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'VAUVENARGUES'' If Target = Range("B111") Then With Shapes.Range(Array("VAUVENARGUES")).Fill If Range("B111") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B111") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B111") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B111") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B111") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B111") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B111") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'VELAUX'' If Target = Range("B112") Then With Shapes.Range(Array("VELAUX")).Fill If Range("B112") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B112") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B112") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B112") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B112") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B112") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B112") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'VENELLES'' If Target = Range("B113") Then With Shapes.Range(Array("VENELLES")).Fill If Range("B113") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B113") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B113") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B113") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B113") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B113") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B113") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'VENTABREN'' If Target = Range("B114") Then With Shapes.Range(Array("VENTABREN")).Fill If Range("B114") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B114") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B114") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B114") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B114") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B114") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B114") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'VERNEGUES'' If Target = Range("B115") Then With Shapes.Range(Array("VERNEGUES")).Fill If Range("B115") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B115") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B115") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B115") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B115") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B115") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B115") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'VERQUIERES'' If Target = Range("B116") Then With Shapes.Range(Array("VERQUIERES")).Fill If Range("B116") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B116") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B116") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B116") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B116") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B116") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B116") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'VITROLLES'' If Target = Range("B117") Then With Shapes.Range(Array("VITROLLES")).Fill If Range("B117") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B117") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B117") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B117") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B117") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B117") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B117") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'COUDOUX'' If Target = Range("B118") Then With Shapes.Range(Array("COUDOUX")).Fill If Range("B118") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B118") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B118") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B118") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B118") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B118") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B118") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If 'CARNOUX-EN-PROVENCE'' If Target = Range("B119") Then With Shapes.Range(Array("CARNOUX-EN-PROVENCEOUDOUX")).Fill If Range("B119") = "FB" Then .ForeColor.RGB = RGB(142, 217, 115) Else If Range("B119") = "FL" Then .ForeColor.RGB = RGB(255, 192, 0) Else If Range("B119") = "AM" Then .ForeColor.RGB = RGB(166, 201, 236) Else If Range("B119") = "GS" Then .ForeColor.RGB = RGB(216, 109, 205) Else If Range("B119") = "OY" Then .ForeColor.RGB = RGB(247, 199, 172) Else If Range("B119") = "RB" Then .ForeColor.RGB = RGB(191, 191, 191) Else If Range("B119") = " " Then .ForeColor.RGB = RGB(255, 255, 255) Else End If End If End If End If End If End If End If End With End If End Sub voici le fichier merci d'avance pour votre aide...

boss_68 · Accepted Answer

Re

Ou tester un truc comme ça...... attention pas toutes les villes

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cellToShape As Object
    Set cellToShape = CreateObject("Scripting.Dictionary")

    ' Associer les cellules aux formes (à adapter selon ton fichier)
    cellToShape("B2") = "AIX"
    cellToShape("B3") = "ALLAUCH"
    cellToShape("B4") = "ALLEINS"
    cellToShape("B5") = "ARLES"
    cellToShape("B6") = "AUBAGNE"
    cellToShape("B7") = "AUREILLE"
    cellToShape("B8") = "AURIOL"
    cellToShape("B9") = "AURONS"
    cellToShape("B10") = "LA BARBEN"
    cellToShape("B11") = "BARBENTANE"
    cellToShape("B12") = "LES BAUX-DE-PROVENCE"
    cellToShape("B13") = "BEAURECUEIL"
    cellToShape("B14") = "BELCODENE"
    cellToShape("B15") = "BERRE-L'ETANG"
    cellToShape("B16") = "BOUC-BEL-AIR"
    cellToShape("B17") = "LA BOUILLADISSE"
    cellToShape("B18") = "BOULBON"
    cellToShape("B19") = "CABANNES"
    cellToShape("B20") = "CABRIES"
    cellToShape("B21") = "CADOLIVE"
    cellToShape("B22") = "CARRY-LE-ROUET"

    Dim key As Variant
    For Each key In cellToShape.Keys
        If Not Intersect(Target, Range(key)) Is Nothing Then
            Dim couleur As Long
            Select Case Range(key).Value
                Case "FB": couleur = RGB(142, 217, 115)
                Case "FL": couleur = RGB(255, 192, 0)
                Case "AM": couleur = RGB(166, 201, 236)
                Case "GS": couleur = RGB(216, 109, 205)
                Case "OY": couleur = RGB(247, 199, 172)
                Case "RB": couleur = RGB(191, 191, 191)
                Case "":   couleur = RGB(255, 255, 255)
                Case Else: Exit Sub
            End Select
            On Error Resume Next ' au cas où la forme n’existe pas
            Shapes(cellToShape(key)).Fill.ForeColor.RGB = couleur
            On Error GoTo 0
        End If
    Next key

End Sub

Slts

boss_68 · Answer

Un essai juste pour 'AIX-EN-PROVENCE'''' réduire la macro en évitant les IF imbriqués et en utilisant un Select Case 'AIX-EN-PROVENCE'''' If Not Intersect(Target, Range("B2")) Is Nothing Then Dim couleur As Long Select Case Range("B2").Value Case "FB": couleur = RGB(142, 217, 115) Case "FL": couleur = RGB(255, 192, 0) Case "AM": couleur = RGB(166, 201, 236) Case "GS": couleur = RGB(216, 109, 205) Case "OY": couleur = RGB(247, 199, 172) Case "RB": couleur = RGB(191, 191, 191) Case "": couleur = RGB(255, 255, 255) Case Else: Exit Sub ' Ne rien faire si valeur non reconnue End Select Shapes("AIX").Fill.ForeColor.RGB = couleur End If Slts...

BsAlv · Answer

Si on connait le structure du fichier, c'est peut-être encore plus facile. Vous pouvez le télécharger ...