Colorier une cellule suite a une condition

Bonjour,

j'aimerais bien colorier ces cellules (P et U) si l'une de ces deux cellules est negative

(AK ET AL) et faut que la cellule AE= x ou AE =Y ou AE =Z

j'ai commencé avec ce code la mais ça marche pas vraiment il fait a l'envers , il colorie les cellules suite a la valeur de AE , il prends pas en compte la negativtié :

For b = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Set MaPlage = Range("A:AP").Rows(b)

If (ActiveSheet.Cells(b, 38).Text) < 0 or (ActiveSheet.Cells(b, 37).Text) < 0 Then

Select Case UCase(ActiveSheet.Cells(b, 31).Value)

Case "X", "Y", "Y"

 ActiveSheet.Cells(b, 17).Interior.Color = vbGreen
 ActiveSheet.Cells(b, 21).Interior.Color = vbGreen

End Select
End If
Next b

Bonsoir,

Sub Colorier()
    Dim i%, n%
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            If .Cells(i, 37).Value < 0 Or .Cells(i, 38).Value < 0 Then
                If UCase(.Cells(i, 31).Value) Like "[XYZ]" Then
                    .Cells(i, 17).Interior.Color = vbGreen
                    .Cells(i, 21).Interior.Color = vbGreen
                End If
            End If
        Next i
    End With
End Sub

Cordialement