Mettre à jour des données dans une autre feuille

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim R As Range 'déclare la variable R (Recherche)

If Target.Column = 1 Then Exit Sub 'si le changement a lieu dans la colonne 1 (=A), sort de la procédure
'définit la recherche R, (recherche dans la colonne A de l'onglet "Feuil2", le numero ID de la cellule modifiée)
Set R = Sheets("Feuil2").Columns(1).Find(Cells(Target.Row, 1), , xlValues, xlWhole)
If Not R Is Nothing Then 'si il existe au moins une occurrence trouvée
    Cells(Target.Row, 1).Resize(1, 54).Copy R 'renvoie la ligne de la cellule modifiée dans R
    Cells(Target.Row, 1).Resize(1, 54).ClearContents 'efface le contenu de la ligne de la cellule modifiée
    'si tu veux supprimer la ligne : Rows(Target.row).delete
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim R As Range 'déclare la variable R (Recherche)

Cancel = True 'évite le mode [Édition] lié au double-clic
'définit la recherche R, (recherche dans la colonne A de l'onglet "Feuil2", le numero ID de la cellule modifiée)
Set R = Sheets("Feuil2").Columns(1).Find(Cells(Target.Row, 1), , xlValues, xlWhole)
If Not R Is Nothing Then 'si il existe au moins une occurrence trouvée
    Cells(Target.Row, 1).Resize(1, 54).Copy R 'renvoie la ligne de la cellule modifiée dans R
    Cells(Target.Row, 1).Resize(1, 54).ClearContents 'efface le contenu de la ligne de la cellule modifiée
    'si tu veux supprimer la ligne : Rows(Target.row).delete
End If
End Sub