Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D6:H283]) Is Nothing Then
Application.EnableEvents = False
With Target
a = Cells(Target.Row, 7).Value + 8
b = Cells(Target.Row, 8).Value
Range("I" & Target.Row, Range("IF" & Target.Row)).Clear
Cells(Target.Row, a).Value = Cells(Target.Row, 4).Value
couleur = Cells(Target.Row, 4).Interior.ColorIndex
If Cells(Target.Row, 8).Value <> 1 Then
Range(Cells(Target.Row, a), Cells(Target.Row, a + b - 1)).Interior.ColorIndex = Cells(Target.Row, 4).Interior.ColorIndex
Else
Cells(Target.Row, a).Interior.ColorIndex = Cells(Target.Row, 4).Interior.ColorIndex
End If
Application.EnableEvents = True
End With
End If
End Sub