Défusionner des cellules et recopier des valeurs

Bonjour à tous,

Je suis à la recherche d'une solution qui me pose des problématiques pour mettre en place des TCD.

Mon extraction me donne l'onglet "Report" mais les colonnes A,B,C et D sont fusionner, est-il possible, avec une macro, d'arriver à l'équivalent de l'onglet "Data" ?

Merci par avance de votre aide.

Bonne journée

Bonjour,

Sub defusion()
    Dim lig As Long, col As Long, c As Range, pl As Range
    Application.ScreenUpdating = False
    For col = 1 To 3
        For lig = 5 To Cells(Rows.Count, 5).End(xlUp).Row
            If Cells(lig, col).MergeCells Then
                Set pl = Cells(lig, col).MergeArea
                pl.MergeCells = False
                For Each c In pl
                    c = pl.Range("A1").Value
                Next c
                lig = lig + pl.Rows.Count - 1
            End If
        Next lig
    Next col
End Sub

à faire sur une copie de tes données

eric

PS: je viens de voir qu'il y a D aussi. Fait For col = 1 To 4, voire 5 si tu peux avoir des fusions dans E aussi.

Merci pour ton aide et t'a rapidité eriiic