[Gorfael]

Salut pascal21

Sub test()
If Cells(2, 1).Interior.ColorIndex = 3 Then 'Cellule A2
Range('b2:G2').Interior.ColorIndex = 3
End If
End Sub

:whistle: euh, ce qui me gène dans ce genre de test, c'est que si tu remets A2 en blanc, tes cellule B-G restent rouge
Moi, je verrais mieux

Sub test()
Range('b2:G2').Interior.ColorIndex = Cells(2, 1).Interior.ColorIndex
End Sub

ou pour étendre ta manip

Sub test()
Dim X as integer
For X=2 to 40
Range('B' & X & ':G' & X).Interior.ColorIndex = Cells(x, 1).Interior.ColorIndex
End Sub

A+