Vba en-tete en couleur

[Arpette]

Bonjour à toutes et à tous,
J'ai une code qui créé une en-tête sur deux lignes. Je souhaiterais que la seconde ligne VEntete1 soit en rouge.
Merci de votre aide
@+

With ActiveSheet.PageSetup
        
        VEntete = ActiveSheet.Cells(4, 3).Value
        
        VEntete1 = ActiveSheet.Cells(5, 3).Value & Cells(5, 4).Value & _
        "     " & Cells(5, 7).Value & " " & Cells(5, 8).Value
        
       .LeftHeader = "&""BOOK ANTIQUA,Gras italique""&21" & VEntete & Chr(10) & _
        "&""BOOK ANTIQUA,Gras italique""&15" & VEntete1
            
    End With

 

[tototiti2008]

Re : Vba en-tete en couleur

Bonjour Arpette,

à tester

       .LeftHeader = "&""BOOK ANTIQUA,Gras italique""&21" & VEntete & Chr(10) & _
        "&""BOOK ANTIQUA,Gras italique""&15&KFF0000" & VEntete1

 

[Arpette]

Re : Vba en-tete en couleur

Bonjour Tototiti, c'est exactement ce que je cherchais, merci c'est nickel.
@+