Private Sub Worksheet_Change(ByVal Target As Range)
Dim stLieu&, stAgent
If Target.Row >= 5 Then
stLieu = Cells(3, Target.Column).Column
stAgent = Target.Value2
Select Case Target.Column
Case 3, 7, 12, 16, 21, 25, 19, 31, 35
Sheets(CStr(stAgent)).Cells(Rows.Count, 1).End(3)(2).Value = Cells(Target.Row, 1).Value2
Target.Resize(, 4).Copy Sheets(CStr(stAgent)).Cells(Rows.Count, stLieu).End(3)(2)
Application.CutCopyMode = False
End Select
End If
End Sub