Sub CreateFic()
Dim Ws As Worksheet
Dim NomFic As String
Application.DisplayAlerts = False
For Each Ws In ThisWorkbook.Worksheets
NomFic = Ws.Name
Cells.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Test"
ActiveWorkbook.SaveAs Filename:="C:\Test\" & NomFic & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Next Ws
Application.DisplayAlerts = True
End Sub