[myDearFriend!]

Bonsoir seb2, l'ami CB60,

Pas certain d'avoir vraiment cerné la totalité du problème, mais vous trouverez en pièce jointe ce que j'ai compris de votre échange...

Le code utilisé est le suivant :

DANS LE MODULE DE CODE DE LA FEUILLE

Private Sub Worksheet_Change(ByVal Target As Range)
'myDearFriend!  -  www.mdf-xlpages.com
Dim Cel As Range
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("B6:B30")) Is Nothing Then
        Set Cel = Sheets("Corresp.Couleurs").Columns(1).Find(Target.Value, LookIn:=xlValues)
        If Not Cel Is Nothing Then
            Target.Offset(0, -1).Interior.Color = Cel.Interior.Color
            ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1) _
                            .Points(Target.Row - 5).Interior.Color = Cel.Interior.Color
        End If
    End If
End Sub

L'utilisation est expliquée dans le classeur joint.

Cordialement,