Public Sub IMPRESS1_Click() 'copie sauvegarde rapport
Set wk = Workbooks.Add(xlWBATWorksheet)
Set ws = ThisWorkbook.Worksheets("INFOS")
ws.Copy After:=wk.Sheets(Sheets.Count)
Dim nom, chemin As String
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveSheet.Name
chemin = Workbooks("F:\BOURSE\LISTES\ARCHIVESA").Path & "\" & nom
ActiveWorkbook.ActiveSheet.SaveAs Filename:=chemin
ActiveWorkbook.Close
End Sub