un internaute
XLDnaute Impliqué
Bonjour le forum,
Ma question est dans le titre.
Merci d'avance
Bien cordialement
Ma question est dans le titre.
Merci d'avance
Bien cordialement
Code:
Application.ScreenUpdating = False
For Each WSheet In Sheets ' Pour toutes les feuilles du classeur
With WSheet ' On travaille sur une feuille
If WSheet.Name <> "RESULTAT-ANALYSE" Then ' Ajouter cette ligne pour que la colonne E de la feuille RESULTAT-ANALYSE ne se mette en filigrane car même colonne que la feuille POSOLOGIE-CALCIDOSE
.Protect UserInterfaceOnly:=True ' Protection + modifications par macro acceptées