Gras et couleur avec macro ?

Bonsoir j'ai une macro à modifier, mais j'ai un petit soucis,

la voici :

Cells(i, 3) = Cells(i, 3) & "Bonjour" & Capture(14, 7, 9)

Comment mettre le texte "Bonjour" en gras et en rouge ou l'un des deux ? merci à vous.

Bonjour

Dans mes archives (un code de Pierrot93)

Cells(i, 3) = Cells(i, 3) & "Bonjour" & Capture(14, 7, 9)
    With Cells(I, 3).Characters(InStr(Cells(I, 3), "Bonjour"), 7).Font
        .ColorIndex = 3
        .Bold = True
    End With

Merci bien.