[VBA Excel] Problème de rapidité boucle for

Bonjour,

J'ai créé ma boucle, mais elle dure beaucoup trop longtemps. C'est pourquoi je viens vous demander si vous voyez comment "raccourcir" le processus....

Petite explication :
Je travaille dans une table qui contient les données a (numéro de personne), b (chiffre)
Une table parallèle contient les donnée a (numéro de personne) et c (chiffre)

Pour chaque variable a, il existe plusieurs variables c. (table1)
Exemple:

col.a col.b
123 1
123 2
123 3
123 4
123 5

Et pour chaque variable a, il existe une variable b. (table2)
Exemple:
col.a col.b
123 5

Je veux que mon programme vérifie si la variable b est contenu dans les variables c pour la même variable a et me rajoute une valeur fixe "(2x)" à un endroit particulier...

Mon code marche très bien mais il met une éternité (et c'est peu dire) en sachant qu'il y a environ 25'000 lignes dans la table1 et 4000 dans la table2.

Pour améliorations, j'ai pensé à mettre un filtre qui me sort la variable c et ensuite avoir 20 lignes à tester à la place de 25'000, mais je me souviens avoir eu un problème avec les boucles for qui prennent même les lignes filtrées...

Ou alors allez directement à un ID sans devoir passer par toutes les lignes, mais je ne sais pas si c'est possible...

Avez-vous des idées ?

Mon code : 

        Worksheets(ClasseName).Activate
        Module = Cells(5, 6)
        Nb_Lignes6 = Range("A65536").End(xlUp).Row
        For f = 10 To Nb_Lignes6
            Worksheets(ClasseName).Activate
            ID = Cells(f, 7)
            For g = 2 To Nb_Lignes7
                Range("A" & g).Select
                Sheets("suivis").Activate
                If Cells(g, 1).Value = ID Then
                    If Cells(g, 2).Value = Module Then
                        Worksheets(ClasseName).Activate
                        Cel = Cells(f, 4).Value
                        If Cel = "" Then
                            Cells(f, 4) = "(2x)"
                        Else
                            Cells(f, 4) = Cel & " (2x)"
                        End If
                    End If
                End If
            Next g
        Next f

Configuration: Windows XP
Firefox 2.0.0.14