Sub Archive()
Range("C4:C50").Select
Selection.Copy
Sheets("Feuil2").Select
dercol = Worksheets("Feuil2").UsedRange.Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column + 1
Cells(1, dercol) = Date
Cells(2, dercol).Select
[COLOR="Red"]'si problème avec ActiveSheet.Paste essayer Selection.PasteSpecial[/COLOR]
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
End Sub