Sub export_Suivis_Stocks()
Dim chemin$, nom$
chemin = ThisWorkbook.Path & "\"
nom = "Suivis_Stocks " & Format(Date, "mmmm yyyy") & ".xlsx"
Sheets("Suivis_Stocks").Activate
ActiveSheet.Copy
Application.ScreenUpdating = False 'xlOpenXMLWorkbook = xlsx
ActiveSheet.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
End Sub