VBA script to group/degroup columns and rows

Hello,

i'm using VBA script to Group/Degroup columns/rows in a protected report. i have two scripts :

- The first one which is based on Excel protecting functions

- The second one which which is based on EPM protecting functions

The final result is the same, the script are both working, but i notice that the second one is longer than the first one.

Did someone already use these kind of VBA script and what could be the good practices ?

You will find the two script enclosed.

Thanks for your help.

Edouard