Ligne en couleur ?

Bonjour, j'ai un code pour mettre en couleur une ligne , avez-vous un code plus simple. Merci à vous.

    Range("A4:G4").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With

Bonjour

Comme ceci :

Range("A4:G4").Interior.colorindex =  xlAutomatic

Si tu veux en rouge par exemple, remplace xlautomatic par le chiffre 3

Amicalement

Super