Bonjour,
Une proposition à étudier.
Cdlt.
Private Sub cmdCréer_Liste_Click()
Dim tbl As Variant, Arr() As Long
Dim I As Long, J As Long, k As Long, n As Long
With ActiveSheet
.Cells(4).CurrentRegion.Offset(1).Clear
tbl = .Cells(1).CurrentRegion.Value
For I = 2 To UBound(tbl)
n = 0
For J = tbl(I, 1) To tbl(I, 2)
ReDim Preserve Arr(1, k + 1)
Arr(0, k) = tbl(I, 1) + n
n = n + 1: k = k + 1
Next J
Next I
With .Cells(2, 4).Resize(k, 1)
.Value = Application.Transpose(Arr)
.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
End With
End With
Erase Arr
End Sub