Comparaison - recherche dans des feuilles

  bonjour , voila jessai d'executer le code ci-dessous .
mais j'ai un message d'erreur ...

Code :

Sub Bouton1()

Dim Lig As Long

    With Sheets("synthèse")

        While Cells(Lig, 1) <> ""

            If .Cells(Lig, 1) = Sheet("MC").Cells(Lig, "G") Then

                .Cells(Lig, "AA") = "TF-Post"

                Lig = Lig + 1

            Else

                Rows(Lig).Delete

            End If

        Wend

    End With

End Sub

je vous explique ce que j'essai de faire :

je voudrai faire la chose suivante
1) comparer chacun des nombres de la colonne A a partir de A51 de la feuille "synthèse" a la colonne G (G1 a G1000) par exemple de la feuille "MC" si je retrouve le meme nombre et si dans la meme ligne la colonne AA m'indique le mot clé "TF " alors je conserve la ligne qui contient le nombre de depart dans ma feuille "synthese "
si a la colonne AA a la ligne correspondante je trouve autre chose que "TF "
alors j'efface cette ligne dans ma feuille "synthese. "
et ainsi de suite.



voila un exemple

feuil(synthèse) si par exemple
A51=7555 alors je vais chercher ce nombre a la colonne G de la feuille "MC"
(de toute les façon la feul "MC" contient tous les nombres !!)
SI A51= G102 par exemple
et si
AA102="TF" toujours dans la feuil "MC"

alors la ligne 51 de la feuil "synthèse " est conserver
mais si

A51=G102 et AA102#"TF"alors la ligne 51 de la feuil "synthese" doit etre effacé.
et ainsi de suite ..j'usqu'a la ligne A500 PAR EXEMPLE DE LA FEUILLE "SYNTHESE"

merci de votre aide

dianbobo, évite de faire cinquante messages sur le même sujet.
Je n'arrive pas à suivre !