Annuler "fusionner les cellules"

Sub Scinder()
Dim Cel As Range, C As Range
    With ThisWorkbook.Worksheets("Feuil1")
        .Activate
        For Each Cel In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            If Cel.MergeCells = True Then
                Cel.Select
                Selection.UnMerge
                For Each C In Selection
                    C.Value = Cel.Value
                Next C
            End If
        Next Cel
    End With
End Sub