BARRIERE DES 10000 LIGNES

Bonjour tout le monde.

La macro exécutée en cliquant sur le bouton TRAITEMENT de cette feuille fonctionne très bien (voir organigramme processus)

Mais je n'arrive pas à résoudre le problème suivant :

Le traitement s'arrête à la ligne 10077. Comment se fait-il qu'il n'aille pas jusqu'au bout ???

Comment améliorer ou modifier ma macro pour que le travail s'exécute complètement ?

Merci de votre précieuse aide

Cordialement,

Bonjour,

Je ne sais pas où est l'erreur, en tout cas, ci-dessous un code qui fonctionne

Sub Liste1_Liste2()

    Dim xl As Application
    Dim sous_traités()
    Dim formule_sans_00 As Range
    Dim i As Long

    Set xl = Application
    sous_traités = xl.Transpose(Columns("D").Resize(Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeConstants).Value)

    i = 2
    For Each formule_sans_00 In Columns("C").SpecialCells(xlCellTypeFormulas)
        If Not UBound(Filter(sous_traités, formule_sans_00.Value, True)) > -1 Then
            Cells(i, "E").Value = formule_sans_00.Value
            i = i + 1
        End If
    Next

End Sub