Salut Pascal,
Est-ce que ca répond à ta question ?
Code:
Sub test()
Sheets('Feuil1').Select
For i = 2 To 41
If Range('A' & i).Interior.ColorIndex = 3 Then
Range('B' & i & ':G' & i).Interior.ColorIndex = 3
Else
Range('B' & i & ':G' & i).Interior.ColorIndex = xlNone
End If
Next
End Sub
A+
David