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