Sub test_A()
OnNousDitRienOnNousCachePresqueTout Range("B:B,D:D,F:F,H:H,J:J,L:L,N:N"), xlCellTypeConstants
End Sub
Sub test_B()
'ici on ne traitera que les colonnes B et D
OnNousDitRienOnNousCachePresqueTout Range("B:B,D:D"), xlCellTypeConstants
End Sub
Private Sub OnNousDitRienOnNousCachePresqueTout(MesColonnes As Range, MesCellules As XlCellType)
Dim c As Range, x
Application.ScreenUpdating = False
For Each c In MesColonnes.SpecialCells(MesCellules)
On Error Resume Next
x = InStrRev(c.Text, Chr(32))
If x > 0 Then
c.Characters(x, Len(c) + 1 - x).Font.Color = c.Interior.Color
End If
Next
End Sub