Sub DéplacementDonnées()
Dim NLigD As Long, DLigS As Long
' Trouver la prochaine ligne vide de la feuille base
NLigD = Sheets("Base").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
' Trouver la dernière ligne remplie de la feuille Saisie
DLigS = Sheets("Fiche de saisie").Range("A" & Rows.Count).End(xlUp).Row
' Si aucune donnée dans la feuille de saisie : dernière ligne = 9, on sort
If DLigS = 9 Then Exit Sub
' Empêcher le scintillement de l'écran
Application.ScreenUpdating = False
' Copier le données de la feuille Source à la feuille Destination
Sheets("Fiche de saisie").Range("A9:L" & DLigS).Copy
Sheets("Base").Range("A" & NLigD).PasteSpecial Paste:=xlPasteValues
' Effacer le les données sources
Sheets("Fiche de saisie").Range("A9:L" & DLigS).ClearContents
' Activer le rafraichissement écran
Application.ScreenUpdating = True
End Sub