Sub Couleurs()
Application.ScreenUpdating = False
Set Plage = Range("A2:A" & [A65500].End(xlUp).Row)
For Each C In Plage
T = Split(C.Value, " ")
C.Characters(Start:=1, Length:=Len(T(0))).Font.Color = vbRed
C.Characters(Start:=Len(T(0)) + 1, Length:=Len(T(1)) + 2).Font.Color = vbBlue
Next C
End Sub
Sub Noir()
Columns("A:A").Font.Color = vbBlack
End Sub
Je ne pense pas, car testez la PJ, chez moi sur 1000 lignes cela prends 0.13s.c'est peut être parce que il y a beaucoup de lignes .
Ne mettez pas votre propre réponse en vert, cela déroutera le futur lecteur car il s'attend à y lire la solution.mais ça marche , c'est peut être parce que il y a beaucoup de lignes .