Sub Copier_sans_VBA()
Sheets("Liste Clients").Copy
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet. CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
ActiveWorkbook.SaveAs ("C:\paritec\Feuille Liste Clients + Kilomètres ") & Format(Date, "dd-mm-yyyy")
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.Quit
End Sub