Problème lister les fichiers pour numérotation suivante

Bonjour la communauté,
j'utilise un code qui me permet de me donner le numéro de la prochaine facture
exemple: dernière facture 000092 donc dans la cellule C3 de ma feuille 000093, là pas de p
mais je suis à la facture 100 soit 000100 et là le code ne marche plus
en revanche si je remplace 000100 par 0000100 ( soit un zéro de plus) j'ai bien en C3 0000101
alors que je souhaite 000101
une idée, merci a vous

le code en question

Sub listerLesFichiers()
Dim chemin As String
Dim nb As Integer
nb = 0
' On a besoin du chemin absolu du dossier
' Doit se terminer par \
chemin = "C:\Users\moi\Documents\factures\"
' La fonction Dir(chemin, mode) permet de parcourir un dossier
' Ici je rajoute à mon chemin "*.pdf",
' pour ne retrouver que mes fichiers PDF
' vbNormal permet de ne récupérer que des fichiers,
' vbDirectory récupère tout (dossiers et fichiers)
monFichier = Dir(chemin & "*.pdf", vbNormal)
' monFichier n'a récupéré que le premier élément trouvé
' j'ai donc besoin d'un boucle pour les retrouver un à un
Do While monFichier <> ""
extraireValeursNumeriques_DansChaine
If nb < facture Then ' le plus grand nombre
nb = facture
End If
' Permet de passer au fichier suivant
monFichier = Dir
Loop
Sheets("renseignement client").Range("C23").Value = nb + 1
Sheets("renseignement client").Range("C23").NumberFormat = "000000"



End Sub

Sub extraireValeursNumeriques_DansChaine()
    Dim i As Byte, nb As Byte
    Dim Cible As String, Resultat As String
    Dim nombre As Double
     Cible = monFichier
    'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
    'virgules par des points
    Cible = Replace(Cible, ",", ".")
    'Pour gérer deux nombres qui se suivent: remplacement des espaces
    'par un caractère Alpha
    Cible = Replace(Cible, " ", "x")
     For i = 1 To Len(Cible)
        If IsNumeric(Mid(Cible, i, 1)) Then
        nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
        nb = nb + 1
        Resultat = nombre
        i = i + Len(Str(nombre)) - 1
        End If
    Next
    facture = Resultat
End Sub