Sub defusionner()
Dim lig As Byte, Cel As Range, I As Byte
For lig = 10 To 200 Step 2
For Each Cel In Intersect(Rows(lig), ActiveSheet.UsedRange)
If Cel.MergeCells Then
I = Cel.MergeArea.Cells.Count
Cel.UnMerge
Cel.Resize(1, I).Value = Cel.Value
End If
Next Cel
Next lig
End Sub