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