Voir la liste de données a l'intérieure d'un interval

Bonjour,

C'est dans le cadre de mon travail.
Je voudrais voire la liste complete des codes postaux en sachant qu'ils sont classe de cet maniere :

1000 - 1050
1070 - 1100
1180 - 1280
ect

Est-il possible, avec un formule ou macro d'extraire tout les data qui se trouve dans l'interval?

Donc
1001,1002,1003....1050
1070,1071...ect

En cherchent sur internet j'ai trouve ceci. Mais ca marche que pour la premiere ligne :

Sub inscol()
Application.ScreenUpdating = False
On Error GoTo ext
Dim cl As Range, lc As Integer, i As Integer
lc = Cells(1, Columns.Count).End(xlToLeft).Column
If lc <> 1 And Cells(1, lc) - Cells(1, 1) < 256 Then
For i = lc To 2 Step -1
With Cells(1, i)
If .Value - .Offset(, -1).Value > 1 Then
.EntireColumn.Insert
.Offset(, -1) = .Value - 1
i = i + 1
End If
End With
Next
End If
ext:
Application.ScreenUpdating = True
End Sub




Merci!