Garder les valeurs des cellules défusionnées

Bonjour Communauté,

J'ai un problème avec mon fichier excel, j'ai presque 3000 lignes ayant des cellules fusionnées, et pour un souci de tri, je veux que tout les lignes fusionnées soient défusionnées tout en gardant la valeur de la cellule d'origine (Fusionnée).

Je met à votre disposition un petit exemple pour mieux comprendre la situation.

Dans ce fichier, j'ai coloré les premières lignes pour que vous voyez le résultat voulu.

Merci d'avance.

Bonjour,

Une proposition à adapter.

ALT F8, puis exécuter la procédure.

Cdlt.

Bonjour le fil,

Une variante....(loin de moi l'idée de rivaliser avec Jean-Eric, c'est juste pour me prêter à l'exercice, )

Sub essai()

Dim PL As Range
Dim CEL As Range
Dim i As Integer, j As Integer, dl As Integer

dl = Range("B" & Rows.Count).End(xlUp).Row

Set PL = Sheets("Feuil1").Range("A3:F" & dl)
For Each CEL In PL
    If CEL.MergeCells = True Then CEL.MergeArea.UnMerge
Next CEL

For i = 3 To dl - 1
 For j = 1 To 6
  If Cells(i + 1, j) = "" Then Cells(i + 1, j) = Cells(i, j)
 Next j
Next i

End Sub

Cordialement,

Merci bcp Jean-Eric!! ça a fonctionné comme de la magie. Tu m'a sauvé la vie (Y)

Merci à toi aussi @xorsankukai pour ta réactivité (Y)