Problème organisation de données.

Tu peux utiliser une macro avec la fonction Split qui sert à découper une chaîne de caractères avec un séparateur.
Tu déclenche la macro à l'aide d'un bouton et le tour est joué.

Télécharger le fichier d'exemple : http://cjoint.com/14sp/DIDx10eIy8f.htm

Code source de la macro :

Option Explicit

Private Sub CommandButton1_Click()
    Dim datas, result, dataY
    Dim derlig As Long, lig1 As Long, lig2 As Long, i As Long
    ReDim result(1 To 2, 1 To 1)
    derlig = Cells(Rows.Count, "A").End(xlUp).Row
    datas = [A1].Resize(derlig, 2)
    For lig1 = 2 To derlig
        dataY = Split(datas(lig1, 2), ", ")
        For i = 0 To UBound(dataY)
            lig2 = lig2 + 1
            ReDim Preserve result(1 To 2, 1 To lig2)
            result(1, lig2) = datas(lig1, 1)
            result(2, lig2) = dataY(i)
        Next i
    Next lig1
    With Worksheets("Feuil2")
        .[A:B].ClearContents
        .[A1:B1] = [A1:B1].Value
        .[A2].Resize(UBound(result, 2), UBound(result, 1)) = Application.Transpose(result)
        .Activate
    End With
End Sub