Sub CoupeFichier(NomFiche As String, Chemin As String)
'Sauvegarde chaque onglets dans un fichier du même nom que l'onglet
Dim Onglet As Worksheet
For Each Onglet In Workbooks(NomFiche).Worksheets
Worksheets(Onglet.Name).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & Onglet.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close False
Next
End Sub
Sub InsérerNommerFeuilles()
Dim i As Integer
For i = 1 To 52
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = InputBox(" A nommer")
Next
End Sub