Sub Archivage()
Dim Dernièreligne As Long
Dernièreligne = Sheets("Saisies").Range("B:B").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'MsgBox Dernièreligne
Sheets("Saisies").Range("B5:L" & Dernièreligne).Copy
Sheets("Archives").Range("B" & Sheets("Archives").Range("B65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub