Astuce VBA : mise en forme de caractères dans une cellule
Pour modifier la mise en forme de certains caractères, utilisez Characters :
Range("A1").Characters(NO_DEPART, NB_DE_CARACTERES)
Exemple pratique

Dans cet exemple, la macro passera les 2-3 premiers caractères en italique et le nom de la ville en gras :

La macro en détails :
Sub test()
For ligne = 1 To 12
'Contenu de la cellule
contenu = Cells(ligne, 1)
'Contenu divisé en un tableau de 3 parties
tab_contenu = Split(contenu, " ")
'Longueur de la partie 1
longueur_partie_1 = Len(tab_contenu(0))
'Longueur de la partie 2
longueur_partie_2 = Len(tab_contenu(1))
'Partie 1 en ITALIQUE
Cells(ligne, 1).Characters(1, longueur_partie_1).Font.Italic = True
'Partie 2 en GRAS
Cells(ligne, 1).Characters(longueur_partie_1 + 2, longueur_partie_2).Font.Bold = True
Next
End Sub