RE
Avec un bout de code et des explications floues sur ce qui est fait entre défusion et fusion...
Ceci fonctionne : à adapter
Sub macro1()
Dim r As Range
Set r = Selection
r.MergeCells = False
r.Copy Destination:=Range("D2")
'Code pour fusionner les cellules
r.MergeCells = True
End Sub