Bonjour,
A essayer :
Sub ListerCartes()
Dim Lst(), n%, i%, nn%, c%, nc$
With Worksheets(1)
n = .Cells(.Rows.Count, 1).End(xlUp).Row
nn = WorksheetFunction.Sum(.Range("B1:B" & n))
ReDim Lst(1 To nn, 0): nn = 0
For i = 1 To n
nc = .Cells(i, 1) & "_"
For c = 1 To .Cells(i, 2).Value
nn = nn + 1: Lst(nn, 0) = nc & c
Next c
Next i
End With
Worksheets(2).Range("A1").Resize(nn).Value = Lst
End Sub
Pas testé (pas de fichier).