Sub creation_onglet()
Dim sPath, Fd, NomOnglet
Dim sh As Worksheet
'demande ou il veut enregistrer le fichier
Application.DisplayAlerts = False
Do While sPath = ""
Set Fd = Application.FileDialog(msoFileDialogFolderPicker)
With Fd
If .Show = -1 Then
sPath = .SelectedItems.Item(1) & "\"
End If
End With
Loop
For Each sh In Worksheets
'recupère le nom de l'onglet
NomOnglet = "Lot n°" & Left(sh.Name, 2)
sh.Copy
'enregistrement
ActiveWorkbook.SaveAs Filename:=sPath & NomOnglet, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
'Ferme le nouveau classeur
ActiveWorkbook.Close
Next sh
Application.DisplayAlerts = True
End Sub