Public T ' Tableau des mise en forme, avec Mot, Gras, Couleur
' Codes couleurs : noir 0,rouge 255,bleu 16711680,violet 10498160
Sub Colore()
Dim L%, C%, N%, Mot, Gras, Couleur
T = Array("vt", True, 16711680, "vi", True, 255, "inv", True, 255, "günz", True, 0, "(DE- EN-)", False, 10498160, "(dé-)", False, 10498160)
Application.ScreenUpdating = False
For L = 1 To Range("B65500").End(xlUp).Row
For C = 0 To UBound(T)
If Cells(L, "B") Like "*" & T(C) & "*" Then
Mot = T(C): Gras = T(C + 1): Couleur = T(C + 2)
N = InStr(1, Cells(L, "B"), Mot)
With Cells(L, "B").Characters(Start:=N, Length:=Len(Mot)).Font
.Bold = Gras
.Color = Couleur
End With
End If
Next C
Next L
End Sub