Sub Génération_classeur_diffusion()
'Cette macro permet de générer le classeur diffusion à partir de ce classeur
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'detection du nom du chemin et du nom du classeur origine
Nom_du_chemin = ActiveWorkbook.Path & '\\'
Nom_du_classeur = ActiveWorkbook.Name
'enregistrement du classeur origine
ActiveWorkbook.Save
'C'EST A CETTE LIGNE QUE Ca PLANTE LORS DU DEUXIEME PASSAGE
'sauvegarder un classeur sous un autre nom
ActiveWorkbook.SaveAs FileName:=Nom_du_chemin & 'Diffusion_' & Nom_du_classeur
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub