Splitter un texte multilignes puis mettre 1 ligne par cellul

Bonjour,

Je souhaiterai récupérer le contenu d'un commentaire de cellule (qui comporte plusieurs lignes) pour le mettre dans un tableau mais en ayant 1 cellule pour chaque ligne de commentaire

Je parviens à récupérer le contenu du commentaire et à l'afficher mais il s'agit d'un "bloc". je

Const DATA_SHEET = "Information"

Const COLUMN_SITE_ADDRESS = 2

Private Sub testComment()

If Not Worksheets(DATA_SHEET).Range("A1").Cells(1, COLUMN_SITE_ADDRESS).Comment Is Nothing Then

siteAddress = Worksheets(DATA_SHEET).Range("A1").Cells(1, COLUMN_SITE_ADDRESS).Comment.Shape.OLEFormat.Object.Text

End If

msgbox siteAddress

End sub

Auriez vous svp une idée pour splitter par ligne le texte ainsi obtenu?

Merci d'avance.

Marc

Salut et bienvenue sur le Forum,

En ayant juste ton bout de code, on doit essayer de recréer le fichier qui va avec. Je l'ai fait et me suis cassé les dents.

Mais comme tu possèdes ce fichier, ne pourrais-tu pas nous le fournir, juste dans le but de t'aider gratuitement

A te relire.