XL 2016 copier un nombre de fois une cellule en VBA et ajouter un nombre incrémenté derrière

[carteus fabian]

Messieurs, dames,
Je cherche à compléter les lignes de commande suivante afin d'avoir le résultat + un nombre qui s'incrémente le nombre de fois à copier
cela car j'utilise une liste déroulante qui se modifie au fur et à mesure que l'on choisi un résultat
si plusieurs fois la même valeur toute la liste de cette valeur est retirée en une fois de la liste déroulante restante

Sub test()
Dim Tabl()
Dim i As Long, j As Long

' on prend la colonne A et B de Feuille test
With Worksheets("Feuille test")
Tabl = .Range(.Cells(1, 1), .Cells(.Rows.Count, 2).End(xlUp)).Value
End With

' pour chaque valeur de la colonne A
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
' pour un nombre de fois égale au nombre qui est en colonne B
For j = 1 To Tabl(i, 2)
With Worksheets("Feuil2")
' on écrit la valeur dans la Feuil2, en colonne A
.Cells(.Rows.Count, 3).End(xlUp)(2).Value = Tabl(i, 1)
End With
Next j
Next i

End Sub