Sub RAZ()
Dim cel As Range 'déclare la variable cel
For Each cel In ActiveSheet.UsedRange 'boucle sur toutes les cellules utilisées de la feuille active
'en cas d'erreur passe à la ligne suivante
'(effacer une cellule protégée provoque une erreur)
On Error Resume Next
cel.ClearContents 'efface le contenu de la cellule
Next cel 'prochaine cellule de la boucle
End Sub