Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 5 And Target.Count = 1 Then
If Target.Value <> "" Then
état = Target
If état <> ActiveSheet.Name Then
Application.EnableEvents = False
Target.Offset(0, -4).Resize(1, 5).Copy Sheets(état).[A65000].End(xlUp).Offset(1, 0)
Target.Offset(0, -4).Resize(1, 5).Delete shift:=xlUp
Application.EnableEvents = True
End If
End If
End If
End Sub