enlever les fusions et recopier les valeurs

[roudrick]

Bonjour,

Afin de récupérer des données, je souhaite enlever les cellules fusionner et recopier la valeur dans chacune des cellules.
J'ai déjà trouver des choses, mais je n'arrive pas à les adapter.
Ci-dessous un exemple.

merci d'avance!!

 

[roudrick]

Re : enlever les fusions et recopier les valeurs

j'ai trouvé ça sur un forum... une macro qui date de 2008 mais qui fonctionne

Sub x()

Dim rng As Range, rng2 As Range

For Each rng In ActiveSheet.UsedRange
If rng.MergeCells Then
With rng
Set rng2 = .MergeArea
.MergeArea.UnMerge
rng2.Value = .Value
End With
End If
Next rng

End Sub

merci