Convertir une cellule en plusieurs lignes

Bonjour à tous, et merci d'avance si vous prenez le temps de me répondre !

Voici mon problème sur excel :

Dans une même case, j'ai plusieurs phrases que je souhaiterais obtenir dans des lignes séparées. Si ces phrases étaient séparées par des points virgules ou des virgules, cela ne poserait pas de problème et je pourrais les convertir d'abord en colonnes, puis en ligne. Malheureusement, les phrases ne sont séparées que par des retours à la ligne, et je ne m'en sors pas. Ci-joint un exemple concret :

Connaîtriez-vous une solution efficace et pas trop complexe pour me débloquer ?

Je vous remercie et vous souhaite une excellente journée.

Bonjour,

Si tu ne veux pas utiliser le VBA.

Dans la cellule C5, tu mets cette formule :

=SUBSTITUE(C4;CAR(10);";")

Tu auras tes lignes séparés par des ";"

Tu fais un Copier/Coller valeurs, puis une conversion comme tu sais le faire

Bonjour cousinhb29,

Merci beaucoup pour ton aide.

Quand je rentre la formule que tu m'as indiquée dans la cellule C5, il me met bien les phrases les unes à la suite des autres, mais je n'ai pas de ";" les séparant.

Y'a-t-il une autre manip que je dois faire d'abord ?

Re-,

tu as bien mis un ; entre les guillemets, dans la formule?

J'ai créé un modèle pour vous avec des codes VBA. Examinez-le.

Bonjour à tous les deux,

@cousinhb29, oui ma formule est exactement celle que tu m'as donné, mais rien à faire les points virgule n'apparaissent pas.

@Kadrleyn, merci beaucoup pour ton aide. Malheureusement, pour des raisons de versions, mon mac refuse d'ouvrir ton fichier autrement qu'en lecture seule, ce qui m'empêche de faire fonctionner ta macro ...

Bonjour

- Ouvrez l'éditeur VBA (appuyez sur Alt+F11).

- Ajoutez un module et collez les codes ci-dessous dans ce module.

- Activez la feuille de calcul, appuyez sur Alt+F8, sélectionnez la macro Split_Cell dans la fenêtre Macro et exécutez-la.

Sub Split_Cell()
Dim ayir As Variant, cleartxt As Long
cleartxt = Sheets("Feuil1").Range("C" & Rows.Count).End(xlDown).Row
Sheets("Feuil1").Range("C12:C" & cleartxt).ClearContents

ayir = Split(Sheets("Feuil1").Range("C4").Value, Chr(10))
 On Error Resume Next
    For i = 0 To UBound(ayir)
        Sheets("Feuil1").Range("C12").Offset(i, 0) = ayir(i)

    Next i
    MsgBox "The Splitted Data :" & UBound(ayir) + 1, , ""
End Sub