Problème avec cellules contenant des retraits

Bonjour à tous,

Je dois travailler sur un fichier pour lequel toutes les données sont saisies dans la colonne A (une donnée par ligne), mais le seul moyen de retrouver la hiérarchie des données sont les retraits

Exemple :

A1 : FRUITS

A2 : POMMES

A3 : GOLDEN

A4: GRANIT SMITH

A5 : POIRES

A6 : LEGUMES

Je voudrais bien sur remettre tout cela dans les "bonnes cases" pour pouvoir utiliser les données, mais je ne vois vraiment pas comment faire. Je vous joins un fichier pour mieux comprendre

Merci beaucoup de l'aide que vous pourrez m'apporter

Bonjour

Mettre la source sous forme de tableau structuré nommé Donnees

10 est la colonne J : à adapter

Sub Ventiler()

With [Donnees].ListObject
    For i = 1 To .ListRows.Count
        col = 10 + .DataBodyRange.Cells(i, 1).IndentLevel
        Worksheets("Feuil1").Cells(i + 1, col) = .DataBodyRange.Cells(i, 1).Value
    Next
End With
End Sub

Bonjour,

Merci beaucoup, j'essaie ça

Bonne journée