Option Explicit
Sub Mise_en_forme()
Dim i&, j&, g&, DerniereLigne&, debut&
Application.ScreenUpdating = False
DerniereLigne = Cells(10000, 1).End(xlUp).Row
For g = 1 To DerniereLigne
debut = 1
Do Until debut >= Len(Cells(g, 1))
i = InStr(debut, Cells(g, 1), "{")
j = InStr(debut, Cells(g, 1), "}")
If i = 0 Or j = 0 Then Exit Do
Cells(g, 1).Characters(i + 1, j - i - 1).Font.Bold = True
Cells(g, 1).Characters(i + 1, j - i - 1).Font.Color = RGB(5, 5, 210)
debut = j + 1
Loop
Next g
Application.ScreenUpdating = True
End Sub