VBA Excel : Boucle qui oublie des données ?

Bonjour à tous,

je bataille depuis des jours pour faire l'équivalent d'un RecherchV entre deux tables de données en VBA. Car faire un simple RecherchV dans excel fait planter Excel...
Je pars d'une table détail qui contient un numéro de facture et un numéro d'article, et d'une table facture qui contient un numéro de facture et une date de facturation. Et le but est d'attribuer à chaque ligne de détail, une date de facturation.
J'ai fini par aboutir à cette boucle qui fait comme un RechercheV, mais en passant par des variable tableaux et qui ne plante pas Excel.

ReDim TabDetFact(LigDet, ColDet + 2) As Variant    
    x = 0    
    x2 = 1    
    For x1 = 1 To LigDet 'nombre de lignes dans Détail    
        z = 0    
        For x2 = x2 To LigFact 'nombre de lignes dans Facture    
            If TabFacture(x2, 1) = TabDetail(x1, 1) Then    
                z = 1    
                Exit For    
            End If    
        Next x2    
        If z = 0 Then    
            TabDetFact(x, 0) = TabDetail(x1, 1)    
            TabDetFact(x, 1) = TabDetail(x1, 2)    
            TabDetFact(x, 2) = TabDetail(x1, 3)    
            TabDetFact(x, 3) = "NoMatch"    
            TabDetFact(x, 4) = 0    
            x2 = 1    
        Else:    
             TabDetFact(x, 0) = TabDetail(x1, 1)    
             TabDetFact(x, 1) = TabDetail(x1, 2)    
             TabDetFact(x, 2) = TabDetail(x1, 3)    
             TabDetFact(x, 3) = TabFacture(x2, 2)    
             TabDetFact(x, 4) = TabFacture(x2, 3)    
        End If    
        x = x + 1    
    Next x1    

Comme les numéros de facture se suivent plus ou moins dans les deux tables, la première boucle ne recommence pas à la première ligne de la table facture, j'y gagne beaucoup de temps mais il peut y avoir quelques oublis, donc uniquement pour ces résultats, je reprends la recherche à zéro systématiquement.

' Récupération des NoMatch    
    For x = 0 To UBound(TabDetFact)    
        If TabDetFact(x, 3) = "NoMatch" Then    
            z = 0    
            For x2 = 1 To LigFact    
                If TabFacture(x2, 1) = TabDetFact(x, 0) Then    
                    z = 1    
                    Exit For    
                End If    
            Next x2    
            If z = 1 Then    
                 TabDetFact(x, 3) = TabFacture(x2, 2)    
                 TabDetFact(x, 4) = TabFacture(x2, 3)    
            End If    
        End If    
    Next x

J'ai fait des tests sur de petites tables (détail = 300 000 lignes, facture = 30 000 lignes), ça fonctionne à merveille.
Le problème, c'est que sur des tables plus grosses, ça ne fonctionne pas. (détail = 1 000 000 lignes, facture = 300 000 lignes).

La boucle attribue des valeurs fausses, presque du début à la fin.

J'ai exactement le même problème en passant par des requêtes dans Access. La requête fonctionne sur les petites tables et fait exactement la même erreur sur les grandes tables.

Obtenir la même erreur avec deux procédés complètements différents... C'est fort, et j'ai beau me dire que c'est moi qui déraille, je n'arrive pas à trouver mon erreur.

A l'aide !!