Conversion de données

Bonsoir à tous,

J'ai entré des données dans une cellule comme suit:

15D1022801 - D36095001

15D1022801 - D36096001

15D1022801 - D36093001

Je souhaiterais redisposer ces données dans des cellule consécutives.

Ex: en supposant que ce donnés se trouvent dans la cellule A1,

je souhaiterais avoir dans la cellule A2: 15D1022801 - D36095001

dans la cellule A3: 15D1022801 - D36096001

dans la cellule A4: 15D1022801 - D36093001

J'espère avoir été compris.

Merci d'avance

Bonjour Kouadio, le forum,

Un essai....

Sub test()
 Dim cptr As Byte

  tablo = Split(Range("A1"), Chr(10))
   For cptr = 0 To UBound(tablo)
    Cells(cptr + 2, 1) = tablo(cptr)
   Next
End Sub

Cordialement,

Super,

C'est ok.

Merci infinment.