Option Explicit
Sub test()
Dim Ws As Worksheet, Mois As String, NomMois As String
Dim Chemin As String, NomSortie As String
Mois = MonthName(Month(Date))
Chemin = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets
NomMois = Right(Ws.Name, Len(Ws.Name) - 10)
If NomMois = Mois Then
Ws.Activate
ActiveSheet.Copy
NomSortie = ActiveSheet.Name & ".xlsx"
Application.DisplayAlerts = False 'Format .xlsx"
ActiveSheet.SaveAs Filename:=Chemin & NomSortie, FileFormat:=xlOpenXMLWorkbook
End If
Next Ws
ActiveWorkbook.Close True
ThisWorkbook.Sheets(1).Activate
End Sub