Sub MFC_ColE()
Dim DLig As Long
' Avec la feuille
With Sheets("Tableau de bord")
' Trouver la dernière ligne du tableau
DLig = .Range("E" & Rows.Count).End(xlUp).Row
' Avec la plage de cellule
With .Range("E6:E" & DLig)
' Supprimer les conditions, puis les appliquer de nouveau
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Projet"""
With .FormatConditions(.FormatConditions.Count)
.StopIfTrue = False
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
End With
End With
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Correction"""
With .FormatConditions(.FormatConditions.Count)
.StopIfTrue = False
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = 5066944
.TintAndShade = 0
End With
End With
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Envoi"""
With .FormatConditions(.FormatConditions.Count)
.StopIfTrue = False
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = 4059462
.TintAndShade = 0
End With
End With
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Homologation"""
With .FormatConditions(.FormatConditions.Count)
.StopIfTrue = False
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
End With
End With
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Attente homol"""
With .FormatConditions(.FormatConditions.Count)
.StopIfTrue = False
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = 10498160
.TintAndShade = 0
End With
End With
End With
End With
End Sub