Sub Accueil()
' Accueil Macro
Dim Sh$
nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & Sheets("Param").[B26] & Format(Now, " le dd-mm-yy ""à"" hh""h""mm""mm""ss""s") & ".xlsm"
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\sauv2013\Travail\Copie " & nom
ActiveWorkbook.Save
Sh = ActiveSheet.Name
Sheets("Accueil").Select
End Sub