Effacer le contenu d'une cellule fusionée

]Bonjour à tous,

J'aimerai utiliser un code vraiment très simple pour effacer le contenu de cellules, sur un bouton :

Sub Efface()

Range("A2, D2, G2, I2, A5, U9").ClearContents

End Sub

Malheureusement, ces cellules sont fusionnées et Excel me dit qu'il est impossible d'exécuter cette formule sur des cellules fusionnées :

Est-ce qu'il existe une autre technique?

D'avance merci et bonne journée

Bonjour,

Avant tout, ne peux-tu pas utiliser "Centré sur plusieurs colonnes" plutôt que de fusionner ?

Cdlt.

Bonjour,

Union(Range("A2").MergeArea, Range("D2").MergeArea, Range("G2").MergeArea, Range("I2").MergeArea, Range("A5").MergeArea, Range("U9").MergeArea).ClearContents

Merci, c'est parfait