Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E7,C:C]) Is Nothing Then Exit Sub
Dim i As Variant
i = Application.Match([E7], [A:A])
If IsError(i) Then Exit Sub
Application.ScreenUpdating = False
Range("D34:H" & Rows.Count).Delete xlUp 'RAZ
[D10:H33].Copy Cells(i, "D")
Cells(i, "G").Resize(2) = 0
If Cells(i, "D") > 7500 Then _
Cells(i, "D").GoalSeek Goal:=7500, ChangingCell:=Cells(i, "G")
If Cells(i + 1, "D") > 7500 Then _
Cells(i + 1, "D").GoalSeek Goal:=7500, ChangingCell:=Cells(i + 1, "G")
Application.Goto Cells(i, 1), True
Target.Select
With Me.ChartObjects(1)
.Top = Cells(i, "I").Top
.Left = Cells(i, "I").Left
.Chart.ChartTitle.Characters.Text = "Ecrétage " _
& Format(Cells(i, 1), "dd/mm/yyyy")
End With
End Sub