Private Sub Worksheet_Change(ByVal Target As Range)
Dim x$, i&
x = Cells(Target.Row, 2)
's'il on change une valeur de la colonne B
If Not Intersect(Target, Range("B5:B18")) Is Nothing And Target.Count = 1 Then
For i = 3 To 12
Cells(Target.Row, i).Value = Cells(Target.Row, i).Value
If x = "" Then Cells(Target.Row, i).Interior.ColorIndex = xlNone
Next
End If
's'il on change une valeur des colonnes C à L
If Not Intersect(Target, Range("C5:L18")) Is Nothing And Target.Count = 1 Then
Select Case Target
Case ""
Target.Interior.ColorIndex = xlNone
Case x
Target.Interior.ColorIndex = 6
Case Else
Target.Interior.ColorIndex = 3
End Select
End If
End Sub