Bonjour,
Essaies comme ça :
Option Explicit
Code :
- Sub Test()
- Dim source As Range
- Dim cible As Range
- Dim table As Variant
- Set source = Worksheets("Feuil1" ).Range("D5" )
- Set cible = Worksheets("Feuil1" ).Range("E5" )
- table = Split(source.Value, vbLf)
- cible.Resize(1, UBound(table) + 1).Value = table
- End Sub
|
Tu peux aussi faire la même chose sans macro
1) copier la source (D5) vers la cible (E5)
2) Données / Convertir / Délimité / Suivant / Décocher tous les séparateurs et cocher Autre avec pour valeur Alt+0010 / Terminer
---------------
Cordialement, Patrice