Lier certaines données de deux feuilles

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
  If Target.Count > 1 Then Exit Sub
  For Each C In Intersect(Target, [C:C])
    If C.Column = 3 Then
      Application.EnableEvents = False
      If UCase(C) = "LU" Then
        Cells(C.Row, 1).Copy Sheets("Lus").Cells(Rows.Count, 1).End(xlUp).Offset(1)
        Rows(C.Row).Delete
      End If
      Application.EnableEvents = True
    End If
  Next C
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'défintion du champ: N° de colonne et Ligne > avant la 1° et ligne < après la dernière
If Target.Column = 3 And Target.Row > 2 And Target.Row < 1001 Then
ActiveCell.Value = "Vu"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
  If Target.Count > 1 Then Exit Sub
  For Each C In Intersect(Target, [C:C])
    If C.Column = 3 Then
      Application.EnableEvents = False
      If UCase(C) = "VU" Then
        Cells(C.Row, 1).Copy Sheets("Vus").Cells(Rows.Count, 1).End(xlUp).Offset(1)
        Rows(C.Row).Delete
      End If
      Application.EnableEvents = True
    End If
  Next C
End Sub