Corriger bout de code VBA pour synchroniser un suivi

Bonsoir Forum,

PJ : capture d'écran, nombre de lettres comptées de gauche à droite

J'ai besoin de votre aide SVP pour corriger ce bout de code, pour synchroniser un suivi. La macro s'exécute jusqu'à suivi 10, mais elle est bloquée à ce suivi, on veut faire un suivi illimité (11,12,13,...N).

Merci d'avance,

'Ces conditions sont nécessaires lorsque le numéro de suivi est supérieur ou égale à 10
        test_numberSuivi = True
        numberSuivi = Mid(bookName, 40, 3) 'récupère le numéro de suivi
        If numberSuivi Like "* " Then
            numberSuivi = Left(numberSuivi, 1) 'enlever l'espace à la fin de la variable numberSuivi
            test_numberSuivi = False
        End If

        If test_numberSuivi = False Then
            numberDSCC = Mid(bookName, 64, 7) 'récupère la DSCC
        Else
            numberDSCC = Mid(bookName, 64, 8) 'récupère la DSCC
            numberDSCC = Right(numberDSCC, 7) 'enlever l'espace au début de la variable numberDSCC

        End If
        '*******************************************************************

        day = Left(inputDate, 2)
        month = Mid(inputDate, 4, 2)
        dateOfDir = day & "/" & month 'obtenir la date en version JJ/MM => Variable pour remplir la cellule à côté de la cellule contenant la valeur "Suivi X" (X numéro du suivi) et mettre au format JJ/MM + N° suivi
        dateExtraction = day & "/" & month & "/" & year 'Cette variable permet de pouvoir filtrer dans le fichier IndicateurV2 la date du tableau croisé dynamique
        Workbooks(unFichier).Activate
            Call RemplirFichierIndicateur.addValue(numberDSCC, numberSuivi, dateOfDir, unFichier, fichier_source, inputDate, dateOfFile, dateExtraction, numberDOMTOMDTC)
        Application.DisplayAlerts = False
        Workbooks(unFichier).Save
        Workbooks(unFichier).Close
        Application.DisplayAlerts = True
        unFichier = Dir
    Wend
    Application.Goto Worksheets(1).Range("C1"), True
    Workbooks("IndicateurV2_" & dateOfFile & ".xlsx").Save
    Workbooks("IndicateurV2_" & dateOfFile & ".xlsx").Close
    Workbooks("DSCC_NbAgentsHorsPIC_" & dateOfFile & ".xlsx").Save
    Workbooks("DSCC_NbAgentsHorsPIC_" & dateOfFile & ".xlsx").Close
    Application.DisplayAlerts = False
    Workbooks(file_macro).Save
    Workbooks("exportPA_" & dateOfFile & ".csv").Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox "Macro exécutée"
End Sub