Microsoft 365 Liste de mots avec respect nb occurences

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