XL 2010 Eliminer toutes les zones fusionnées ds une selection

Sub Macro1()
 
ActiveSheet.Range("A2:Y70").Select  ' sélection de la plage
    With Selection
        .MergeCells = False  ' défusion
    End With
ActiveWorkbook.Close Savechanges:=False  'fermer classeur sans enregistrer
End Sub

Sub fus()
For Each i In [A2:Y70]
  With i.MergeArea
    If .Count > 1 Then
      .UnMerge
      .HorizontalAlignment = xlCenterAcrossSelection 'pour la lisibilité
    End If
  End With
Next
End Sub

Sub fus()
Dim c As Range, x
Application.ScreenUpdating = False
For Each c In [A2:Y70]
  With c.MergeArea
    If .Count > 1 Then
      .UnMerge
      .Interior.Color = .Cells(1).Interior.Color
      .Borders(xlInsideVertical).LineStyle = xlNone
      x = .Cells(1).ColumnWidth
      .Columns(1).AutoFit
      If .Cells(1).ColumnWidth > x Then _
        .HorizontalAlignment = xlCenterAcrossSelection 'pour la lisibilité
      .Cells(1).ColumnWidth = x
    End If
  End With
Next
End Sub