Sub séparation()
Dim sh As Worksheet
Dim lenom As String
Dim lenom2 As String
Dim nomfichier As Workbook
For Each sh In Sheets
sh.Select
sh.Copy
lenom = sh.Name
lenom2 = lenom & '.xls'
ChDir 'C:'
ActiveWorkbook.SaveAs Filename:= _
'C:' & lenom2, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Next sh
End Sub