XL 2021 colorer une cellule selectionné dans une plage défine

Sub CouleurRouge()
Dim rouge As Range 'colonne gauche
Dim cel
Set rouge = Range("G7:H8,G10:H11,G13:H14,G16:H17,G19:H20,G22:H23,G25:H26,G28:H29,G31:H32,G34:H35,G37:H38,G40:H41")
For Each cel In rouge
cel.Interior.Color = RGB(255, 0, 0) 'couleur de fond
cel.Font.Color = RGB(255, 255, 255) 'couleur de texte
Next
End Sub
' ou encore
Sub CouleurRouge2()
Dim rouge As Range 'colonne gauche
Set rouge = Range("G7:H8,G10:H11,G13:H14,G16:H17,G19:H20,G22:H23,G25:H26,G28:H29,G31:H32,G34:H35,G37:H38,G40:H41")
rouge.Interior.Color = VbRed ' ou RGB(255, 0, 0) 'couleur de fond
rouge.Font.Color = VbWhite ' ou RGB(255, 255, 255) 'couleur de texte
End Sub