Recopier après annulation de la fusion de lignes

Bonjour,
Pouvez-vous, une fois, mettre le fichier avec situation avant traitement et le résultat que vous voulez obtenir ce sera préférable pour une bonne compréhension dans le but de vous indiquer une proposition qui tienne la route.
Si oui le fichier sur https://www.cjoint.com/ et poster le lien.

Désolé, parti dans mes problèmes, je pensais être clair ! Et pardon à ceux qui ont bien voulu tenter m'aider et spécialement à Eriiic dont je ne comprenais pas qu'il me demandait d'être plus clair.
Donc, je reçois un tableau tel que celui en A1 :D10 et j'ai besoin d'avoir celui en F1 :I10 pour pouvoir faire des tris. La plage de cellules concernées est variable ; pas de problème pour mettre en surbrillance la plage concernée, évidemment.
Question subsidiaire, le tableau réel était bien plus grand, il m'arrive souvent d'oublier des cellules fusionnées. Serait-il possible d'avoir une macro (la même, ou une autre) qui « débusque » les plages oubliées.

Bonjour,
Merci, c'est très bien mais on ne peut rien faire avec cette image.
Si on vous demande gentiment : Si oui le fichier sur https://www.cjoint.com/ et poster le lien alors faites le ou alors préciser que vous ne le pouvez pas.... !
Et n'oublier pas que bonjour et salutations vont de pair ...

Salutations.
Le Pingou

Bonjour à tous
Arcade89400, J'aurai apprécié que vous donniez une réponse à ma proposition sur le forum VBA avant de faire une nouvelle demande sur le forum EXCEL, Si ma réponse ne convenait, il suffisait de le dire, j'aurai fait le nécessaire pour l'adapter.
Ca n'encourage pas les gens à vous aider. A éviter à l'avenir,
Voici quand même une proposition

Sub Defusionner()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Range(Cells(2, 6), Cells([F10000].End(xlUp).Row, 9)).Clear
    Range(Cells(2, 1), Cells([A10000].End(xlUp).Row, 4)).Copy
    Range("F2").Select
    ActiveSheet.Paste
    
    'Defusionner
    For i = 6 To 9
        For Each cel In Range(Cells(2, i), Cells([A10000].End(xlUp).Row, i))
            Valeur = cel.Value
            If cel.Offset(1, 0).Row > cel.Row + 1 Then
                Cells(cel.Row, i).UnMerge
                Cells(cel.Row + 1, i).Value = Valeur
            End If
        Next
    Next i
End Sub

Cdlt

Bonsoir,
Décidément, je ne fais que des bourdes vis-à vis de ceux qui veulent m'aider ! Je leur en demande bien pardon, c'est involontaire. Mais soyez compréhensif: je me bats avec Excel depuis déjà longtemps. Je découvre CCM, je m'y inscris et il faut apprendre à l'utiliser ainsi que les habitudes de ceux qui l'utilisent. Ajoutez à cela que j'ai ma petite fille de 4 ans dans les pattes (mais je ne me plains pas...) et vous pourrez comprendre que tout gérer de front peut amener à faire des bourdes.
Voici le lien vers mon fichier qui n'a rien de secret !
https://www.cjoint.com/c/EHcshbZRT6b
Il s'agit donc de supprimer la fusion des cellules fusionnées pour pouvoir faire des tris. Si la macro pouvait repérer les cellules en question, ce serait super car si une seule cellule est encore fusionnée, le tri est impossible.
J'espère que vous avez tous les éléments en main. Merci d'avance pour votre aide. Bonsoir

Bonjour,

Les choses ayant été mises au clair une macro que j'avais faite :
https://www.cjoint.com/c/EHcsJenLn3b
Plage à traiter à adapter si besoin.
eric

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Bonjour,
Je vous pries d'essaye le code (testé OK supprime fusion et génère les vides) qui suit :

Sub suprfusionrecopval()
Range("a1").CurrentRegion.Select
deli = Selection.Rows.Count
deco = Selection.Columns.Count
Selection.UnMerge
For li = 2 To deli
    For c = 1 To deco
        If Cells(li, c) = "" Then
            Cells(li, c) = Cells(li, c).Offset(-1).Value
        End If
    Next c
Next li
MsgBox "La plage ne contient plus de cellule fusionnées et les valeurs sont générées"
End Sub