Oups ..... j'avais "flingué" le mot passe.
Donc remettre le mot de passe et
en début de programme mettre
ActiveSheet.Unprotect ("MDP") 'Enlève le mote de passe, ici MDP à remplacer par le tien
en fin de programme mettre
ActiveSheet.Protect ("MDP") 'Enlève le mote de passe,ici MDP à remplacer par le tien