Copier intérieur cellule pour coller sur plusieurs cellules

Bonjour,

Je n'arrive pas à trouver le code vba pour copier l'intérieur d'une cellule qui comporte plusieurs données et de coller ces données, une donnée par cellule.

J'y arrive manuellement, je cherche le code vba pour le faire. L'enregistreur de macro ne me fournie pas d'information pertinente.

Range("A1").Select

ActiveCell.FormulaR1C1 = "BT598" & Chr(10) & "BT599" & Chr(10) & "BT600"

Sheets("Feuil2").Select

Range("A6").Select

ActiveSheet.Paste

Ci-dessous le type de cellule de base et ce que je souhaite à l'arrivée :

Merci pour vos retours

Bonjour

Code à essayer

Range("A1").Select

ActiveCell.FormulaR1C1 = "BT598" & Chr(10) & "BT599" & Chr(10) & "BT600"

Bt = Trim(Range("A1"))
pct = Trim(Range("B1"))

With Sheets("Feuil2")
    .Range("A6") = Left(Bt, 5)
    .Range("A7") = Right(Mid(Bt, 6, 6), 5)
    .Range("A8") = Right(Bt, 5)
    .Range("B6") = Left(pct, 6)
    .Range("B7") = Right(Mid(pct, 7, 7), 6)
    .Range("B8") = Right(pct, 6)
End With

Cordialement

Bonjour Olivier,

Un essai sur le fichier joint et à adapter au fichier réel.

Cordialement

Edit: Bonjour Dan

Ouahhh, super rapide pour les réponses, merci beaucoup. Je vais prendre la réponse de @haonv car les cellules peuvent avoir entre 1 et 20 données. Je vais intégrer dans la macro (que je constitue) et je reviendrai avec mes commentaires (voir résolution ;) )

A toute à l'heure.