Simplifier codage (mise en forme)

Bonjour à tous,

étant novice, j'ai une question de novice du coup

dans ma macro, j'ai une mise en forme de certaines cellules, sous cette forme :

    Range("A5,B5,C5,D5,E5,F5,G5").Interior.ColorIndex = 45
    Range("A6,B6,C6,D6,E6,F6,G6").Interior.ColorIndex = 44
    Range("A7,B7,C7,D7,E7,F7,G7").Interior.ColorIndex = 36
    Range("A5,B5,C5,D5,E5,F5,G5").VerticalAlignment = xlCenter
    Range("A6,B6,C6,D6,E6,F6,G6").VerticalAlignment = xlCenter
    Range("A7,B7,C7,D7,E7,F7,G7").VerticalAlignment = xlCenter

il y a t'il un moyen simple de simplifier cela pour éviter les répétitions ?

merci beaucoup à vous

Bonjour,

    Range("A5:G5").Interior.ColorIndex = 45
    Range("A6:G6").Interior.ColorIndex = 44
    Range("A7:G7").Interior.ColorIndex = 36
    Range("A5:G7").VerticalAlignment = xlCenter

A+

je me sens idiot, en effet simple et logique

Merci beaucoup et bonne journée