Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C7:E7")) Is Nothing Then
With Worksheets("suivi")
l = .Columns(2).Find(Cells(2, 3), LookIn:=xlValues).Row 'ligne date
Select Case Target.Column
Case 3
.Range("E" & l) = Target.Value
Case 4
.Range("H" & l) = Target.Value
Case 5
.Range("K" & l) = Target.Value
End Select
End With
End If
If Not Application.Intersect(Target, Range("C11:E11")) Is Nothing Then
With Worksheets("suivi")
l = .Columns(2).Find(Cells(2, 3), LookIn:=xlValues).Row 'ligne date
Select Case Target.Column
Case 3
.Range("G" & l) = Target.Value
Case 4
.Range("J" & l) = Target.Value
Case 5
.Range("M" & l) = Target.Value
End Select
End With
End If
End Sub