Clear range and protect sheet

[Pierre]

Hello,
I'm a bit stuck here. I wrote little macro to clear a range on a sheet, where there is a column with formula that is protected. With the macro I have, when the range is cleared, it protect after all the sheet, while I would like to keep protected only the column with formula.
What am I missing ?

 

[vletm]

Pierre
I tried to open Your stuck one more time ...
Did I now find it?
Ps no need to protect sheet, if that was Your stuck there!