Sub test(coldep, colfin, car, couleur)
For m = coldep To colfin
For n = 1 To Cells(Rows.Count, m).End(xlUp).Row
If InStr(Cells(n, m), car) <> 0 Then
debut = InStr(Cells(n, m), car) + 1
fin = Len(Cells(n, m))
With Cells(n, m).Characters(Start:=debut, Length:=fin).Font
.ColorIndex = couleur
End With
End If
Next
Next
End Sub
Sub modifie()
Call test(1, 2, ":", 3)
Call test(3, 4, "/", 5)
Call test(5, 6, "$", 4)
End Sub