Effacer le contenu des cellules fusionnées

Bonjour,

j'aimerai effacer le contenu des cellules fusionnées que j'ai sur ma feuille, j'ai donc un code très simple :

 
Range("E4").MergeArea.ClearContents
Range("E5").MergeArea.ClearContents
Range("E6").MergeArea.ClearContents

mais j'aimerai rendre le code un peu plus propre et compact, j'ai donc testé

Range("E4, E5, E6").MergeArea.ClearContents 

mais ça ne marche pas

si quelqu'un peut me proposer quelque chose j'en serai reconnaissant

merci

Bonsoir,

Une proposition à tester

    Dim iLig As Integer

    For iLig = 4 To 6
        Range("E" & iLig).MergeArea.ClearContents
    Next iLig

Bonne soirée !

Bouben

merci bouben mais le problème c'est que ça ne se suit pas forcement, ca peut être Range("E4") et Range("E90") et Range("A4")

Bonjour et bonne année,

Pour le principe.

Cdlt.

Public Sub DEMO()
Dim Cell As Range

    Application.ScreenUpdating = False

    For Each Cell In ActiveSheet.UsedRange
        If Cell.MergeCells Then Cell.MergeArea.ClearContents
    Next

End Sub

Bonsoir

Ce que je fais quand j'ai des cellules fusionnées à effacer

Range("E4,F9,K18") = ""