With .Resize(IntV, 22)
i = 7
.FormatConditions.Add Type:=2, Formula1:="=Droite($C7)=""e"""
.FormatConditions.Add Type:=2, Formula1:="=Gauche($C7)=""S"""
.FormatConditions.Add Type:=2, Formula1:="=Gauche($C7)=""D"""
.FormatConditions(1).Interior.ColorIndex = 35 ' Vert
.FormatConditions(2).Interior.ColorIndex = 37 ' Bleu
.FormatConditions(3).Interior.ColorIndex = 36 ' Jaune
.FormatConditions(.FormatConditions.Count).SetFirstPriority
End With