Creer un bouton pour effacer des donnees

Bonjour à tous

je cherche comment créer un bouton afin d'effacer les données dans plusieurs cellule une Remise à zéro en quelques sortes.

le tableau est ci joint. les cellules en jaunes sont concernées par cette RAZ. Toutes les autres cellules seront protégées .

merci pour vos solutions

Bonjour,

Une proposition avec un effacement de 4 plages nommées

A+

Re

Merci ça a l air de fonctionner mais peux tu m'expliquer la manip a faire stp?

David

peux tu m'expliquer la manip a faire stp ?

J'ai créé 4 plages nommées

Plage_A qui correspond à B10:R11

Plage_B qui correspond à B15:R16

Plage_C qui correspond à B20:R21

Plage_D qui correspond à B25:R26

L'effacement est réalisé par le code suivant

Private Sub Effacer_Click()
    Application.Union([Plage_A], [Plage_B], [Plage_C], [Plage_D]).ClearContents
End Sub

Si la structure de ta feuille est figée, tu peux écrire directement

Private Sub Effacer_Click()
    Application.Union([B10:R11], [B15:R16], [B20:R21], [B25:R26]).ClearContents
End Sub

A+