Effacer les cellules non protégées d'un classeur

Bonjour,

Je vous contacte car je n'arrive pas à effacer le contenu de certaines cellules non protégés d'un fichier.

J'ai trouvé des lignes de codes me permettant de le faire mais cela me supprime aussi la mise en forme de la cellule.

Voici le code que j'utilise :

Sub MacroEffacer()
Dim ZoneEffacement As Range
Dim MaCellule As Range

Sheets("1 A 100").Select
Set ZoneEffacement = Range("$A$1:$N$5700")
For Each MaCellule In ZoneEffacement
On Error Resume Next
MaCellule.Clear
Next
On Error GoTo 0

End Sub

Avec ces lignes de codes toutes les cellules non protégés s'effacent et la mise en forme aussi. Mais certaines cellules ne s'effacent pas alors qu'elles ne sont pas protégés.

Pourriez vous m'aiguillez s'il vous plait?

Bonjour

Normalement ce code efface

Sub MacroEffacer()
Dim ZoneEffacement As Range
Dim MaCellule As Range

  Sheets("1 A 100").Select
  Set ZoneEffacement = Range("$A$1:$N$5700")
  On Error Resume Next
  For Each MaCellule In ZoneEffacement
    MaCellule.ClearContents
  Next
  On Error GoTo 0
End Sub

aka91100 a écrit :

Mais certaines cellules ne s'effacent pas alors qu'elles ne sont pas protégés.

Tu peux fournir un fichier ?

Bonjour,

Merci pour ton accueille,

le fichier meme compresser a une taille de 351ko, impossible de le télécharger

Bonjour

Besoin que de la feuille "1 A 100" à effacer ainsi que la macro

Cela va pas faire plus de 300 Ko

la feuille se compose de 5700 lignes,

le fichier original fait 7mo

La seule feuille fait 450 ko

Bonjour

Pour la feuille

tu as cjoint http://cjoint.com/index.php

As tu essayé la modification du code ?

J'ai essayé la modification de code et cela fonctionne.

Par contre les données des cellules fusionnées ne disparaissent pas .

Eureka

MaCellule.MergeArea.ClearContents

Cet modification dans le code solutionne le problème.

Merci beaucoup pour ton aide, je vais gagner un temps fou !!