effacer une plage sauf les formules

bonjour le forum,

voila comment effacer une plage sans effacer les formules.

voici mon code

Sub Effacer()
Sheets('Mouvement').Select
Range('B8:M2000').ClearContents
Range('B8').Select
End Sub




merci de votre aide

bonne soirée à tous

la croisée des pains