Sub Exporte()
Chemin = ActiveWorkbook.Path
' Calcul du nombre de feuilles à expédier
NbSheets = ActiveWorkbook.Sheets.Count
For i = 1 To NbSheets
Sheets(i).Activate
' Chaque feuille est exportée individuellement
Sheets(i).Copy
LeNom = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & LeNom & ".xls", FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
Next i
Sheets(1).Activate
End Sub