Comment recopier des lignes modifiées vers la feuille d'origine (Target, Rowindex ?)

Sub Extractionlignesdoublons()


    Dim i&, a&, b&, fin&, fin1&, aa As Variant, bb As Variant, cc As Variant
.....
......

    If y = 1 Then Exit Sub
    For i = 1 To y - 1
        a = bb(7, i) + 1
        Feuil1.Rows(a).Copy Sheets("Plus Récents").Range("A65536").End(xlUp).Offset(1, 0)
[COLOR=Blue][B]       Sheets("Plus Récents").Range("A65536").End(xlUp).Offset(0, 9).Value = a[/B][/COLOR]
       'For Each Row In Feuil1.Rows(a)
       'RowIndex.Copy Sheets("Plus Récents").Range("A65536").End(xlUp).offset(1, 10)
        'Next Row
        
    Next i
    y = 1
    ReDim cc(8, y)
.....
........
        Sheets.Add before:=Sheets(1)
        ActiveSheet.Name = ("Autres")

    If y = 1 Then Exit Sub
    For i = 1 To y - 1
        a = cc(7, i) + 1
        Feuil1.Rows(a).Copy Sheets("Autres").Range("A65536").End(xlUp).Offset(1, 0)
        [COLOR=Blue][B]Sheets("Autres").Range("A65536").End(xlUp).Offset(0, 9).Value = a[/B][/COLOR]
    Next i
      Call Ligneentête
      Sheets("Plus Récents").Select
    
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Lig As Long
'si la feuille active est "Autres" ou "Plus Récents"
If Sh.Name = "Autres" Or Sh.Name = "Plus Récents" Then
'on récupère la ligne indiqué en colonne J
  Lig = Sh.Range("J" & Target.Row).Value
  With Sheets("Feuil1")
  'on copie la ligne modifiée vers la Feuil1
  Sh.Rows(Target.Row).Copy .Rows(Lig)
  'on enlève l'info de la ligne dans Feuil1.
  .Range("J" & Lig).Clear
  End With
  'ce code permet de sortir de la cellule, pour ne pas la modifier puisque ce n'est
  'pas le but recherché.
  Cancel = True
End If
End Sub