Conversion en txt avec retour à la ligne

Bonjour.

J'ai un tableau avec plusieurs colonnes.

Je voudrais convertir ce tableau en format .txt.

Si je fais enregistrer sous avec séparateur tab, j'obtiens les contenus des colonnes sur la même ligne.

Je voudrais avoir le contenu de chaque colonne sur une ligne en dessous.

modèle 15 Graphique XC1

modèle 16 Graphique XC2

modèle 17 Graphique XC3

modèle 18 Graphique XC4

modèle 19 Graphique XC5

modèle 20 Graphique XC6

Je veux obtenir ce modèle là sur .txt

modèle 15

Graphique XC1

modèle 16

Graphique XC2

Merci pour vos aides!

Bonjour louisC et bienvenue,

voici un exemple à adapter,

Sub write_into_text_file()
'ajouter la référence Microsoft Scripting Runtime
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
Dim i As Integer
Set FSys = CreateObject("Scripting.FileSystemObject")
Set oTxt = FSys.CreateTextFile("C:\Users\isabelle\Documents\Test10\ttt.txt") 'à adapter
Set plg = Range("A1:B6")  'à adapter
With oTxt
    For i = 1 To plg.Rows.Count
        .WriteLine plg(i)
    Next i
End With
End Sub