Dissocier le contenu d'une cellule

Bonjour à tous,

J'espère que le semaine débute bien.

J'ai besoin de votre aide sur un fichier qui est en pièce jointe.

L'objectif se trouve dans la feuille "Résultat souhaité" de la pièce jointe.

En effet, j'ai des cellules dans lesquelles, il y a plusieurs données. J'ai dû utiliser le "renvoyer automatiquement à la ligne",

comme vous le constaterez dans la feuille 1.

Il s'agit maintenant pour moi, de dissocier le contenu de la cellule dans plusieurs cellules ( comme le montre la feuille "Résultat souhaité").

J'espère avoir été compris.

Merci d'avance.

bonjour,

une proposition, via une macro

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To dl
            t = Split(.Cells(i, 1), vbLf)
            For j = LBound(t) To UBound(t)
                If t(j) <> "" Then
                    k = k + 1
                    .Cells(k, 2) = t(j)
                End If
            Next j
        Next i
    End With
End Sub

Merci h2so4.