Dim xlBook As Workbook
Dim xlApp As New Excel.Application
Dim txt$
txt = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
FichierCreer = "S:\chemin" & txt & "_t" & ".xls"
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlBook.SaveAs FichierCreer