Bonjours à tous

Voila ci-dessous j'ai une macro qui me cadre et colore le font des 6 cellules (B:G) en partant de la ligne 12 seulement je voudrai ajouter là ou il y a les point d’interrogation les deux conditions suivantes


Si la colonne d contient le mot "Dette" alors Resize(, 6).Font.ColorIndex = 3
Si la colonne d contient le mot "Règlements" alors Resize(, 6).Font.ColorIndex = 5

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Couleur()
  derlig = [d1048576].End(xlUp).Row
  For lig = 12 To derlig
    Cells(lig, "b").Resize(, 6).Interior.ColorIndex = 19
    Cells(lig, "b").Resize(, 6).Borders.LineStyle = xlContinuous
    
    ??????

  Next lig
End Sub
Merci à vous tous

Cordialement