Private Sub CommandButton1_Click()
Dim l As Integer, i As Integer, j As Integer
Dim t
l = 1 'incrementation des lignes de réception
For i = 1 To Sheets("BDD").Range("a65536").End(xlUp).Row 'on parcourt la colonne A de la BDD
t = Split(Sheets("BDD").Cells(i, 2), ";") 'on crée un tableau avec les éléments de la colonne B
For j = 0 To UBound(t) 'on parcourt les éléments
l = l + 1
Cells(l, 1) = Sheets("BDD").Cells(i, 1) 'on renvoi le premier item
Cells(l, 2) = t(j) 'on renvoi chaque item du tableau
Next j
Next i
End Sub