Private Sub CommandButton3_Click()
' Archiver
Range("A3:F27").Select
Selection.Copy
Sheets("Archives").Select
DerLig = Sheets("Archives").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Archives").Range("A" & DerLig).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Archives").Range("A" & DerLig).Select
Sheets("Remises").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A3").Select
ActiveWorkbook.Save
End Sub