Une partie du text en couleur...

[COLOR=NAVY]Sub[/COLOR] TM()
    [COLOR=NAVY]With[/COLOR] ActiveSheet.Shapes("Text Box 2").TextFrame
        .Characters.Text = "Exceptionnellement, les travaux peuvent être exécutés en temps et matériel. Tarif horaire: 29,50$ / heure travaillée / homme." & vbLf & "" & vbLf & "Note : Lorsqu'une soumission écrite n'est pas nécessaire, il est possible"
        .Characters(201).Insert [COLOR=NAVY]String[/COLOR]:=" d'autoriser des travaux en temps et matériel en remplissant simplement le formulaire web au http://www.cslaval.qc.ca/ressmat/autorisation" & vbLf & "Attention : Pour le formulaire web, votre # de bâtiment est le "
        .Characters(401).Insert [COLOR=NAVY]String[/COLOR]:="123"
        [COLOR=NAVY]With[/COLOR] .Characters.Font
            .Name = "Comic Sans MS"
            .FontStyle = "Gras"
            .Size = 11
            .Strikethrough = [COLOR=NAVY]False[/COLOR]
            .Superscript = [COLOR=NAVY]False[/COLOR]
            .Subscript = [COLOR=NAVY]False[/COLOR]
            .OutlineFont = [COLOR=NAVY]False[/COLOR]
            .Shadow = [COLOR=NAVY]False[/COLOR]
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
        [COLOR=NAVY]End With
        [B]With[/B][/COLOR][B] .Characters(Start:=294, Length:=45).Font
            .ColorIndex = 3
        [/B][COLOR=NAVY][B]End With[/B]
    End With[/COLOR]
    Range("E20").[COLOR=NAVY]Select[/COLOR]
    ActiveCell.FormulaR1C1 = "(Temps Matér.)"
    Range("J23").[COLOR=NAVY]Select
End Sub[/COLOR]