Sub ANN_T_COLORIER()
Dim WK1 As Worksheet
Set FL1 = Worksheets("Feuil1")
With FL1
i = 2
Do While Cells(i, 1) <> ""
If .Cells(i, 3) = "ANN" Then .Cells(i, 4) = "T"
If .Cells(i, 4) = "T" Then .Cells(i, 3) = "ANN"
If .Cells(i, 4) = "" Then .Cells(i, 4).Interior.ColorIndex = 28
i = i + 1
Loop
End With