Sub Changer_couleur_cellule() ' ' Changer_couleur_cellule Macro ' Macro enregistrée le 14/01/2011 par jordane45 Range("B1").Select With Selection.Interior .ColorIndex = 6 End With Range("C1").Select With Selection.Interior .ColorIndex = 3 End With Range("D1").Select With Selection.Interior .ColorIndex = 4 End With End Sub