XL 2010 Problème pour encadrer-désencadrer des cellules fusionnées

[Magic_Doctor]

Bonsoir,

J'ai 3 cellules fusionnées que j'ai nommées "ZAZA".
"ZAZA" est encadrée. Je veux uniquement enlever l'encadrement à gauche, à droite et en bas.
J'écris ceci :

Sub Macro1()
    
    With [ZAZA]
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Interior.Color = 16777215  'blanc
    End With
    
End Sub

Résultat : seuls le bord gauche et le bord inférieur de "ZAZA" ont disparu.
Comment s'y prendre pour que les autres bords disparaissent ?

 

[Magic_Doctor]

J'ai trouvé la solution. Donc, problème réglé.

Sub Macro2()
  
    With [ZAZA].MergeArea
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Interior.Color = 16777215  'blanc
    End With
  
End Sub