Salut,
Moi j'avais le même pb.
J'ai trouvé cette soluce qui devrait fonctionner pour toi:
ActiveSheet.EnableOutlining = True 'permet de garder la fonctionnalité PLANS
ActiveSheet.Protect UserInterfaceOnly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowDeletingRows:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True
Le but c'est de protéger ton document avec ce code à chaque fois que tu l'ouvres, et tu ne devrais plus avoir de pb.
Sabine DESEINT
www.sab-art.com