Option Explicit
Sub ExtFac()
Dim WkFac As Workbook, ShFact As Worksheet, ShFactM As Worksheet
Dim WkNou As Workbook
Dim Repert As String, Sep As String
Set WkFac = ActiveWorkbook
Set ShFact = WkFac.Sheets("Facture"): Set ShFactM = WkFac.Sheets(Sheets.Count)
Set WkNou = Workbooks.Add
ShFact.Copy After:=WkNou.Sheets(1)
ShFactM.Copy After:=WkNou.Sheets(2)
WkNou.Sheets(1).Delete
Repert = ThisWorkbook.Path
Sep = Application.PathSeparator
WkNou.SaveAs Repert + Sep + "Facture " + Format(Date, "dd-mm-yy") + " - " + ShFactM.Name
WkNou.Close
End Sub