Deux couleurs de police dans une même cellule

For k = 1 To Len(Range("A1").Value)
  Range("A1").Characters(k,1).Font.ColorIndex = k Mod 16
Next k

Private Sub CommandButton1_Click() 
Const cellule = "A1" 
Const tiret = "-" 
Const nbrouge = 5 
Dim numtiret As Long 
Dim nbcar As Long 
Dim nucar As Long 
Dim c As String 
c = Range(cellule).Value 
nbcar = Len(c) 
numtiret = 0 
For nucar = 1 To nbcar 
  If Mid(c, nucar, 1) = tiret Then 
    nutiret = nutiret + 1 
    If nutiret <= nbrouge Then 
      Range(cellule).Characters(nucar, 1).Font.ColorIndex = 3 
    Else 
      Range(cellule).Characters(nucar, 1).Font.ColorIndex = 5 
    End If 
  End If 
Next nucar 
End Sub

Sub Macro1() 
' 
' Touche de raccourci du clavier: Ctrl+f 
' 
Const tiret = "-" 
Const nbrouge = 5 
Dim nutiret As Long 
Dim nbcar As Long 
Dim nucar As Long 
Dim c As String 

c = Selection.Value 
nbcar = Len(c) 
nutiret = 0 
For nucar = 1 To nbcar 
  If Mid(c, nucar, 1) = tiret Then 
    nutiret = nutiret + 1 
    If nutiret <= nbrouge Then 
      Selection.Characters(nucar, 1).Font.ColorIndex = 3 
    Else 
      Selection.Characters(nucar, 1).Font.ColorIndex = 5 
    End If 
  End If 
Next nucar 

End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 2 And Target.Offset(, 6) > 0 Then
        Application.EnableEvents = False
        Target.Offset(, 9) = String(Target + Target.Offset(, 6), "_")
    With Target.Offset(, 9)
        With .Characters(Start:=1, Length:=Target).Font
            .ColorIndex = 5
        End With
        With .Characters(Start:=Target + 1, Length:=Len(Target.Offset(, 9))).Font
            .ColorIndex = 3
        End With
    End With
        Application.EnableEvents = True
        
    ElseIf Target.Column = 8 Then
        If Target.Offset(, -6) > 0 Then
            Application.EnableEvents = False
            Target.Offset(, 3) = String(Target + Target.Offset(, -6), "_")
            With Target.Offset(, 3)
                With .Characters(Start:=1, Length:=Target.Offset(, -6)).Font
                    .ColorIndex = 5
                End With
                With .Characters(Start:=Target.Offset(, -6) + 1, Length:=Len(Target.Offset(, -3))).Font
                    .ColorIndex = 3
                End With
                Application.EnableEvents = True
            End With
        End If
    End If
End Sub

Private Sub ToutValider()
Dim Lig As Long
    Application.EnableEvents = False
    For Lig = 1 To Range("B65536").End(xlUp).Row
        If Cells(Lig, 2) > 0 And Cells(Lig, 8) > 0 Then
            Cells(Lig, 11) = String(Cells(Lig, 2) + Cells(Lig, 8), "_")
            With Cells(Lig, 11)
                With .Characters(Start:=1, Length:=Cells(Lig, 2)).Font
                    .ColorIndex = 5
                End With
                With .Characters(Start:=Cells(Lig, 2) + 1, Length:=Len(Cells(Lig, 11))).Font
                    .ColorIndex = 3
                End With
            End With
        End If
    Next Lig
    Application.EnableEvents = True
End Sub

Option Explicit

Const plage_utile = "A1:C10" 
Const tiret = "_"
Const derli = 10
Const derco = 3

Private Sub MAJFR()
Dim li As Long
Dim co As Long
  Application.EnableEvents = False
  For li = 1 To derli
    For co = 1 To derco
      Worksheets("FR").Cells(li, co).Value = Worksheets("FF").Cells(li, co).Value
    Next co
  Next li
  Application.EnableEvents = True
End Sub

Private Sub formate(plage As String)
Dim c As Range
Dim nbcar As Long
Dim nucar As Long
Dim nutiret As Long
Dim nbrouge As Long
nbrouge = Worksheets("FF").Range("nbrouge").Value
  For Each c In Worksheets("FR").Range(plage)
    nbcar = Len(c)
    nutiret = 0
    For nucar = 1 To nbcar
      If Mid(c, nucar, 1) = tiret Then
        nutiret = nutiret + 1
        If nutiret <= nbrouge Then
          c.Characters(nucar, 1).Font.ColorIndex = 3
        Else
          c.Characters(nucar, 1).Font.ColorIndex = 5
        End If
      End If
    Next nucar
  Next c
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Call MAJFR
  Call formate(plage_utile)
End Sub