' Je rends la feuille que je veux enregistrer en .xlsx visible
Sheets("Mafeuille").Visible = True
' Si des filtres sont activés sur cette feuille, je les enlève
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
' Je sauvegarde cette feuille dans un nouveau fichier .xlsx auquel j'ajoute la date
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="Ma feuille - " + VBA.Strings.Format(Now, "mmddyyyy") + ".xlsx"
ActiveWorkbook.Close
Sheets("Mafeuille").Visible = False
'Message de fin
MsgBox ("File has been save in the same directory as the Report")