Sub Macro1()
Range("A1:F49").Copy
With Workbooks("Archive[1].xlsx").Sheets("Feuil2")
.Cells(1, .UsedRange.Columns.Count).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Sheets("7").Range("A1:Z1").ClearContents
End Sub