MACRO: fractionner les données d'une cellule

Bonjour,

j'ai un fichier excel avec dans la première colonne, certaines cellules qui possèdent plusieurs données. Exemple:

Colonne A Colonne B

1 F

2 M

3;4;5 O

6;7 J

8 K

Ce que je souhaiterais, c'est avoir qu'une donnée par cellule dans la colonne A en conservant la valeur de la colonne B:

Colonne A Colonne B

1 F

2 M

3 O

4 O

5 O

6 J

7 J etc.

Voyez-vous comment je pourrais faire ça?

Merci pour votre aide.

Bonjour

Si c'est pour le faire à grande échelle, tu demanderas aux pros de te bâtir une macro.

Si c'est pour 2 ou trois fois, en 3 petites manips...

Cordialement

Merci pour ta réponse, mais en effet, j'ai beaucoup de lignes, presque 5000...

Quelqu'un connait-il une macro pour réaliser ce fractionnement?

Bonjour

Avez vous trouvé la solution pour votre problème ?

En effet j'ai exactement le même souci.

Cordialement,

Salut Djamai,

Private Sub cmdGO_Click()
'
Dim tTab, tSplit, tTabF()
'
iRow = Cells(Rows.Count, 1).End(xlUp).Row
tTab = Range("A1:B" & iRow)
'
For x = 1 To UBound(tTab, 1)
    tSplit = Split(tTab(x, 1), ";")
    For y = 0 To UBound(tSplit)
        iIdx = iIdx + 1
        ReDim Preserve tTabF(2, iIdx)
        tTabF(0, iIdx - 1) = tSplit(y)
        tTabF(1, iIdx - 1) = tTab(x, 2)
    Next
Next
Range("D1").Resize(iIdx, 2) = WorksheetFunction.Transpose(tTabF)
'
End Sub

A+