Recopier après annulation de la fusion de lignes

Sub Defusionner()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Range(Cells(2, 6), Cells([F10000].End(xlUp).Row, 9)).Clear
    Range(Cells(2, 1), Cells([A10000].End(xlUp).Row, 4)).Copy
    Range("F2").Select
    ActiveSheet.Paste
    
    'Defusionner
    For i = 6 To 9
        For Each cel In Range(Cells(2, i), Cells([A10000].End(xlUp).Row, i))
            Valeur = cel.Value
            If cel.Offset(1, 0).Row > cel.Row + 1 Then
                Cells(cel.Row, i).UnMerge
                Cells(cel.Row + 1, i).Value = Valeur
            End If
        Next
    Next i
End Sub

Sub suprfusionrecopval()
Range("a1").CurrentRegion.Select
deli = Selection.Rows.Count
deco = Selection.Columns.Count
Selection.UnMerge
For li = 2 To deli
    For c = 1 To deco
        If Cells(li, c) = "" Then
            Cells(li, c) = Cells(li, c).Offset(-1).Value
        End If
    Next c
Next li
MsgBox "La plage ne contient plus de cellule fusionnées et les valeurs sont générées"
End Sub