Autres Changer la couleur des caractères compris entre 2 chaînes de caractères sur une ligne dans Excel 2007 avec une Macro

Sub Trou_écrire_couleur()
Dim DernLigne As Long, i As Integer, debut As Integer, fin As Integer
Application.ScreenUpdating = false
DernLigne = Range("A" & Rows.Count).End(xlUp).Row 'Cherche la dernière ligne rempli depuis la colonne A
For i = 1 To DernLigne                      'boucle de la ligne 1 à la dernière ligne
    Chaine = Range("A" & i)                 ' extrait la chaine à traiter
    debut = 0: fin = 0                      ' debut et fin sont les repères de la chaine à colorer
    For c = 1 To Len(Chaine)                ' pour toute la chaine
        If Mid(Chaine, c, 2) = "::" Then    ' on recherche le debut ::
            debut = c + 2
        End If
        If Mid(Chaine, c, 2) = "}}" Then    ' on recherche la fin }}
            fin = c
        End If
        If debut <> 0 And fin <> 0 Then     ' si debut et fin non nul alors on colore
            Range("A" & i).Select
            With ActiveCell.Characters(Start:=debut, Length:=fin - debut).Font
                .Color = RGB(255, 0, 0)     ' en rouge entre les deux
            End With
            debut = 0: fin = 0              ' on remet à zéro les pointeurs pour le prochain
        End If
    Next c
Next i
End Sub

Option Explicit

Sub Demo()
  Dim r As Range
  Const MARQUEUR_DEBUT = "{{c1::"
  Const MARQUEUR_FIN = "}}"
 
  Dim Position_Debut As Integer
  Dim Position_Fin As Integer
  Dim Longueur_Marqueur_Debut  As Integer
 
  Longueur_Marqueur_Debut = Len(MARQUEUR_DEBUT)
 
  For Each r In Range("A1:A" & Range("A1").CurrentRegion.Rows.Count)
    Position_Debut = 1
    While InStr(Position_Debut, r.Value, MARQUEUR_DEBUT) <> 0
      Position_Debut = InStr(Position_Debut, r.Value, MARQUEUR_DEBUT)
      Position_Fin = InStr(Position_Debut, r.Value, MARQUEUR_FIN)
      If Position_Fin <> 0 Then
        r.Characters(Position_Debut + Longueur_Marqueur_Debut, _
        Position_Fin - Position_Debut - Longueur_Marqueur_Debut).Font.Color = vbRed
      End If
      Position_Debut = Position_Debut + 1
    Wend
  Next r
End Sub

Avec les balises c'est plus lisible !