Sub Mise_à_jour_des_lignes()
Dim Derl As Long, DerLig As Long
Application.ScreenUpdating = False
Derl = Sheets("Lignes à ajouter").Range("A65536").End(xlUp).Row
DerLig = Sheets("Donnees").Range("A65536").End(xlUp).Row + 1
Sheets("Lignes à ajouter").Range("A2:L" & Derl).Copy _
Sheets("Donnees").Range("A" & DerLig)
Application.ScreenUpdating = True
End Sub