@Curulis57, je trouve que ceci est plus lisible (ai lieu de tout sur une ligne)
If Not Intersect(Target, Columns(8)) Is Nothing Then
Target = WorksheetFunction.Proper(Target)
If iRow > 3 And Range("B" & iRow).Value <> "" Then
Range("E" & iRow).Value = IIf(Target = "Annulation", "A" & Range("E" & iRow).Value, Replace(Range("E" & iRow).Value, "A", ""))
Range("I" & iRow).Value = IIf(Target = "Annulation", "A" & Range("I" & iRow).Value, Replace(Range("I" & iRow).Value, "A", ""))
Range("E" & iRow).Font.Color = IIf(InStr(Range("E" & iRow).Value, "A") = 0, RGB(0, 0, 0), RGB(255, 255, 255))
Range("I" & iRow).Font.Color = IIf(InStr(Range("I" & iRow).Value, "A") = 0, RGB(0, 0, 0), RGB(255, 255, 255))
End If
End If