Sub ArchiverMois2()
' ArchiverMois2 Macro (nom de la macro)
'
Application.ScreenUpdating = False
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = MonthName(Month(Date)) '(la nouvelle feuille)
Sheets("Récapitulatif").UsedRange.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
ActiveSheet.Cells(1, 1).Select
Sheets("Récapitulatif").Activate '(retour à la feuille de départ)
Application.ScreenUpdating = True
End Sub