Décomposer une cellule en plusieurs lignes

Bonjour les experts ,

J'ai une cellule avec un contenu comme ci-dessous :

[...] texte a

[...] texte b

[...] texte c

[...] texte d

[...] texte e

[...] texte f

[...] texte g

Je souhaite décomposer cette cellule , en mettant une ligne par cellule , j'ai essayé avec convertir mais je n'ai pas eu le résultat obtenu ou j'ai mal utilisé la fonction.

J'ai 200 cellules que je dois décomposer en lignes , en avez-vous une astuce pour le faire rapidement ?

Merci pour votre aide

Bonjour,

Pour commencer, un bon fichier vaut mieux que quelques lignes sur un post...

La faisabilité et la facilité de ton opération dépendra du séparateur possible (espace, saut de ligne...) et de la présence d'éléments identifiables (mot ou caractère répété facilitant le découpage de ton texte...).

Merci donc de fournir un exemple plus exhaustif.

Merci Pedro de votre retour ,

Ci-joint un fichier pour illustrer ma demande , l'idée est de decomposer la cellule en plusieurs colonnes.

Merci d'avance

Une macro :

Sub SeparerTxt()

Dim Lig As Long, LigMax As Long, TbTxt As Variant

With Sheets("Feuil1") 'Nom a adapter
    LigMax = .Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne
    For Lig = 1 To LigMax 'Boucle sur les lignes
        TbTxt = Split(.Range("A" & Lig), Chr(10)) 'Séparer texte selon saut de ligne
        .Range(.Cells(Lig, 1), .Cells(Lig, UBound(TbTxt))).Value = TbTxt 'Coller le résultat
    Next Lig
End With

End Sub

Pedro22 a écrit :

Une macro :

Sub SeparerTxt()

Dim Lig As Long, LigMax As Long, TbTxt As Variant

With Sheets("Feuil1") 'Nom a adapter
    LigMax = .Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne
    For Lig = 1 To LigMax 'Boucle sur les lignes
        TbTxt = Split(.Range("A" & Lig), Chr(10)) 'Séparer texte selon saut de ligne
        .Range(.Cells(Lig, 1), .Cells(Lig, UBound(TbTxt))).Value = TbTxt 'Coller le résultat
    Next Lig
End With

End Sub

Merci pour ton aide Pedro , ça fonctionne trés bien.