Bon, j'ai réussi à trouver une solution mais je reste persuadé que je peux largement simplifier ce morceau de code qui est :
'Sauvegarde copie nouveau fichier
Dim Wb As Workbook
Set Wb = Workbooks.Add
ThisWorkbook.Activate
Sheets(Array("sheet1", "sheet2")).Select
Sheets(2).Activate
Sheets(Array("sheet1", "Sheet2")).Copy Before:=Wb.Sheets(1)
Sheets("Feuil1").Select
'Masquer la demande d'autorisation de suppression de la feuille
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
ThisWorkbook.Activate
Chemin = "C:\Users\user\Desktop\"
'Ajoute l'indice et la date du jour dans le nom du fichier
Fichier = "Numérotation config_" & Format(Date, "ddmmyyyy") & ".xlsx"
'Enregistrement du nouveau classeur nommé "Fichier" sur le lien "Chemin"
Wb.SaveAs Chemin & Fichier
'Fermeture du nouveau classeur sans enregistrement (car fait juste plus haut)
Workbooks("Numérotation config_" & Format(Date, "ddmmyyyy") & ".xlsx").Close False
--> Quelqu'un aurait-il une idée ou proposition?