Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
If Target = "" Then Exit Sub
DerLig = Range("A65500").End(xlUp).Row
Range("E:E").ClearContents
Nw = 1
For i = 2 To DerLig
Nb = Cells(i, "A")
For Nfois = 1 To Nb
Cells(Nw, "E") = Cells(i, "B")
Nw = Nw + 1
Next Nfois
Next i
End If
End Sub