Macro pour colorer cellule avec liste déroulante

Bonjour à toutes et à tous,

Sur le fichier joint, qui comporte 2 onglets (planning et chantiers), je souhaiterais que les cellules de l'onglet planning se colorient selon le format des cellules de l'onglet chantier.

Explications :

Pour une quantité X de cellules de l'onglet planning, il y a une liste déroulante de choix dont la base se situe sur l'onglet planning. Une fois mon choix fait, je souhaiterais que la couleur de fond soit la même que celle attribuée aux cellules de l'onglet chantier.

Espérant être suffisamment clair, je vous remercie d'avance.

Bonsoir à tous,

Click/droit sur l'onglet de la feuille "Planning" puis "Visualiser le code" puis dans la partie de droite tu colles le code ci-dessous...

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim lign As Long

    If Not Intersect(Target, [B4:O26]) Is Nothing Then
        For lign = 1 To Sheets("Liste chantiers").Range("A10000").End(xlUp).Row
            If Target.Value = Sheets("Liste chantiers").Cells(lign, 1).Value Then
                Target.Interior.Color = Sheets("Liste chantiers").Cells(lign, 1).Interior.Color
            End If
        Next lign
    End If

End Sub

Ça devrait le faire.

Bonne nuit à tous !