Incrémenter un range de numéro sur une colonne

Bonjour,

Je vous explique mon "petit"problème :

J'ai un fichier excel avec une ligne par range de numéro, c'est à dire par exemple en A1 (33321898720) et en B1 le nombre de numéro correspondant à ce range, par exemple 10 (donc un range de 10 numéros).
Je souhaiterais réaliser une macro qui me permettrait, sur une autre feuille, de me créer automatiquement une colonne qui ajouterait les 10 lignes de numéros en commençant donc par "33321898720" et en se terminant par "33321898729".

J'ai 800 lignes à effectuer comme cela, donc une macro me ferait gagner énormement de temps.

Mille merci d'avance pour votre aide :D

Cordialement

Bonjour,

si j'ai bien compris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub liste() Dim datas, result() As Double, ref As Double Dim lig1 As Long, lig2 As Long, nb As Long, i As Long   datas = [A2].Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1, 2).Value nb = Application.Sum(Columns(2)) ReDim result(1 To nb, 1 To 1) For lig1 = 1 To UBound(datas) ref = datas(lig1, 1) For i = 0 To datas(lig1, 2) - 1 lig2 = lig2 + 1 result(lig2, 1) = ref + i Next i Next lig1 [D2].Resize(Cells(Rows.Count, 4).End(xlUp).Row).ClearContents [D2].Resize(nb) = result End Sub

---

eric