je travail sur de grande base et j'aimerais défusionner des cellule fusionner et quel remplissent les cellue devenu vide par le contenu initial avec ou sans macro.
Sub Macro1()
For Each cel In ActiveSheet.UsedRange
If cel.MergeCells = True Then
Set PL = cel.MergeArea
cel.UnMerge
PL.Value = cel.Value
End If
Next cel
End Sub