mise en forme conditionnelle vba

bonjour, voilà mon soucis. j'essaie de colorer un groupe de 4 cellules (col A à D) suivant le contneu de la cellule A qui est une chaine de caractères. Cela ne fonctionne pas dans le sens où c'est toujours la couleur RGB(255, 0, 0) qui est prise en compte.

Sub MiseEnForme()
dernligne = Range("A" & Rows.Count).End(xlUp).Row

If Sheets("Affectation").Range("A" & dernligne).Value = CStr("NOUVELLE affectation") Then
Sheets("Affectation").Range("A" & dernligne & ":" & "D" & dernligne).Select
With Selection
.Interior.Color = RGB(255, 255, 96)
End With
Else
Sheets("Affectation").Range("A" & dernligne & ":" & "D" & dernligne).Select
With Selection
.Interior.Color = RGB(255, 0, 0)
End With
End If
End Sub

Merci de votre aide.