Sub visualiserCellulesFusionnees()
Dim cell As Range
For Each cell In Feuil1.UsedRange.Cells
If cell.MergeCells = True Then
cell.MergeArea.Interior.ColorIndex = 6
cell.MergeCells = False
' Ajout dans votre code
cell.Offset(1, 0) = cell.Value
End If
Next cell
End Sub