Lister des numéros libre

Bonjour à tous,

J'ai besoin d'un coup de main, je souhaite faire une macro, qui permet de lister tout les numéros disponible entre deux valeurs (20000 à 29999).
J'ai commencé à faire quelques choses mais cela ne fonctionne pas très bien et j'aime pas la méthode, avez-vous une autre idée ?

Bonjour,

Une macro sur (un peu) le même principe:

Dim WD As Worksheet, WR As Worksheet, dico As Object, i As Long
Dim ValDeb As Long, ValFin As Long

    ValDeb = 20000 ' à adapter
    ValFin = 29999 ' à adapter
    Set dico = CreateObject("Scripting.Dictionary")
    Set WR = Worksheets("Référence")
    Set WD = Worksheets("Disponible")

    For i = ValDeb To ValFin
        dico(CStr(i)) = ""
    Next

    ref = WR.Range("L3:L" & WR.Range("L" & Rows.Count).End(xlUp).Row)
    For i = LBound(ref) To UBound(ref)
        If dico.exists(ref(i, 1)) Then dico.Remove (ref(i, 1))
    Next

    WD.Range("A2").Resize(dico.Count, 1) = Application.Transpose(dico.keys)

A+

Bonsoir,
Génial, c'est beaucoup mieux que ma version pas terrible.

Merci beaucoup pour votre aide.

Bonne soirée