Sub test()
BoldanicolaroitalicofontAnzator [A:G], True, True, , "algerian"
End Sub
Sub BoldanicolaroitalicofontAnzator(plage As Range, _
Optional gras As Boolean = False, _
Optional italico As Boolean = False, _
Optional couleur As Double = vbRed, _
Optional FontN = "calibri")
Dim i&, j&, chrStart&
Set plage = plage.Resize(plage.Parent.UsedRange.Cells.Count)
Application.ScreenUpdating = False
For Each cel In plage.Cells
With cel
chrStart = InStr(1, .Text, ":")
If chrStart > 0 Then
With .Characters(chrStart + 1, 99)
.Font.Bold = gras
.Font.Italic = italico
.Font.Color = couleur
.Font.Name = FontN
'etc....
End With
End If
End With
Next
End Sub