Surligner une ligne mais pas les cellules déjà colorées

Salut,

J'utilise le code suivant :

    '3) 'Réalise l'action si la valeur de cellule = D (ligne sélectionnée, colonne "statut")
    If Cells(Target.Row, Range(AdresseCellule_Nature).Column).Value = "D" And Target.Row > 7 Then
            Target.EntireRow.Interior.ColorIndex = 40
    End If

Le soucis est que j'ai sur la ligne certaines cellules qui sont colorées et dont je souhaiterai garder la couleur tout en surlignant le reste de la ligne de la couleur indiqué ci-dessus.

Auriez vous une solution?

Merci

Bonjour Hallscar, bonjour le forum,

Essaie comme ça :

Dim C As Range

If Cells(Target.Row, Range(AdresseCellule_Nature).Column).Value = "D" And Target.Row > 7 Then
    For Each C In Target.EntireRow.Cells
        If C.Interior.ColorIndex = xlNone Then C.Interior.ColorIndex = 40
    Next C
End If

Fonctionne parfaitement.

Merci beaucoup