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

[target]

Bonjour,
j'aimerais si c'est possible colorer une cellule selectionné en rouge, par un bouton, dans une plage défine avec ce code cela ne fonctionne pas.

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 = Selection.Interior.color = RGB(255, 0, 0) 'couleur de fond
cel = Selection.Font.color = RGB(255, 255, 255) 'couleur de texte

Next
End Sub

Merci d'avance pour vos réponses
Cordialement

 

[sylvanu]

Bonjour target,
Deux solutions possibles parmi d'autres :

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