Sub a()
Dim strPath As String
Dim t As Variant, WBK As Workbook
strPath = ThisWorkbook.Path & "\"
t = Array(Sheets(Sheets.Count).Name, Sheets(Sheets.Count).Previous.Name)
Sheets(t).Copy
Set WBK = ActiveWorkbook
WBK.SaveAs strPath & Format(Date, "mmmm-yyyy") & ".xlsx", 51
'finalement je me corrige moi-même ;-)
WBK.Close True
End Sub