Fond de cellule en couleur

bonjour, voici un code qui fonctionne mais qui me met la colonne ou il y a la date en rouge pas de soucis mais je souhaiterais également le nom du client colonne B a partir de la ligne "4".

Sub Workbook_Open()
Sheets("base_client").Activate
derlig = Sheets("base_client").Cells(Cells.Rows.Count, "B").End(xlUp).Row
For Each c In Sheets("base_client").Range("P4:P" & derlig)
ecart = c - Date
c.Interior.ColorIndex = -4142
If ecart >= 5 And ecart <= 8 Then
MsgBox " le client " & c.Offset(0, -14) & " doit être relancer dans " & ecart & " jours" & vbLf & _
"Merci de prendre les dispositions nécessaires ", vbExclamation
c.Interior.ColorIndex = 3
End If
Next
End Sub

Merci

Bonjour,

à tester

Sub Workbook_Open()
Sheets("base_client").Activate
derlig = Sheets("base_client").Cells(Cells.Rows.Count, "B").End(xlUp).Row
For Each c In Sheets("base_client").Range("P4:P" & derlig)
ecart = c - Date
c.Interior.ColorIndex = -4142
If ecart >= 5 And ecart <= 8 Then
MsgBox " le client " & c.Offset(0, -14) & " doit être relancer dans " & ecart & " jours" & vbLf & _
"Merci de prendre les dispositions nécessaires ", vbExclamation
c.Interior.ColorIndex = 3
C.offset(0,-14).interior.colorindex=3
End If
Next
End Sub

edit :ajout interior

bonjour et merci

malheureusement non pas d'erreur mais pas de cellule sur fond rouge non plus

Bonjour everybody, il faut ajouter ".interior" avant colorindex

C.offset(0,-14).Interior.ColorIndex = 3

bonjour force rouge, merci pour l'info sa fonctionne,

La réponse est dans ton nom

euuuhhhhhh...oué ! j'suis force rouuuuuuuuuuuuuge !