Pb d'Archivage VBA

Bonjour,

Je viens de tomber sur votre sujet, et j'aurais également une question à vous poser :
Comment parvenir à ne copier que les lignes qui ont été modifiée dans la source, c'est à dire sans avoir 15 fois la même ligne si j'effectue la sauvegarde 15 fois?

Sub ArchivageFormulaire()
    
'définir le chemin dropbox
Dim Chemin As String
Chemin = ActiveWorkbook.Path & ":" & "BASE DE DONNEES.xlsx"

Dim cs As Workbook, cd As Workbook

'définir le classeur source
Set cs = ActiveWorkbook
'définir le classeur destination
Set cd = Application.Workbooks.Open(Chemin)


'copier les données de "Formulaire" du classeur source vers la "Base de données" du classeur destination
cs.Sheets("Formulaire").Range("A3:FI" & cs.Sheets("Formulaire").Range("A" & Cells.Rows.Count).End(xlUp).Row).Copy Destination:=cd.Sheets("Base de données").Range("A" & cd.Sheets("Base de données").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1)

'fermer le classeur destination sans message
Application.DisplayAlerts = False
cd.Close SaveChanges:=True
Application.DisplayAlerts = True

End Sub

Merci d'avance