Fait des efforts pour expliquer: on a que ce tu as écrit pour essayer de t'aider
D'ailleurs, en te disant: la personne doit pouvoir comprendre sans aucune ambiguïté quel mon problème, tu trouveras très souvent la solution (expérience personnelle).
application.displayalerts=false, est très dangereux à utiliser et démontre souvent que l'auteur connait mal VBA car excluant toute alerte ou erreur de programmation...si quelqu'un connait un peu VBA chez ton client, adieu les marchés (comme l'emploi de select-selection et/ou de copy-paste. au passage).
à la rigueur emploie le à la fin juste avant de sauvegarder
If a = vbYes Then 'debut de bloc
Sheets("feuil2").Visible = xlsheetvisible
Sheets("feuil1").Visible = xlsheethidden
Application.DisplayAlerts =False
Application.Dialogs(xlDialogSaveAs).Show
Application.DisplayAlerts = True
End If
end sub
Cordialement, Michel