Separations en plusieurs ligne

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim tablo2 As Variant
Dim i, j, n As Byte

tablo = Range('a2:b4')

For i = 1 To UBound(tablo)
    tablo2 = Split(tablo(i, 2), ',')
    With Sheets('feuil2')
        For j = 0 To UBound(tablo2)
            n = n + 1
            .Cells(n, 1) = tablo(i, 1)
            .Cells(n, 2) = tablo2(j)
        Next j
    End With
Next i
End Sub

Cliquez pour agrandir...