Bonjour

voici un petit code qui sur un clique de bouton te permet de colorier une plage en fonction de la cellule A1

Private Sub CommandButton1_Click() 'Clic de bouton
Dim couleur As Integer 'Définie la variable coueur comme un integer

'Si la cellule ligne 1 colonne 1 est égal à "rouge" définit la couleur en rouge (3)
If Cells(1, 1) = "rouge" Then
couleur = 3
'Sinon si la cellule ligne 1 colonne 1 est égal à "vert" définit la couleur en vert (4)
ElseIf Cells(1, 1) = "vert" Then
couleur = 4
'Possibilité de continuer avec plein de couleur
'avec des elseif et de définir une couleur par défaut avec un else

End If

'Définit la couleur de la plage de cellule sélectionné en fonction de la variable couleur
Range("B2:EG16").Select
With Selection.Interior
.ColorIndex = couleur
.Pattern = xlSolid
End With

End Sub


Bon courage

Biloue