appel ou argument de procédure incorrect

Code:

---

If Worksheets("feuil1").ProtectContents Then MsgBox "La feuil1 est protégée"

---

Regarde dans l'aide à ProtectContents, à "Voir aussi", tu as d'autres possibilités ex. Locked, ProtectWindow...