Comparaison et selection

    msgbox "Cellule " & cell.Address & " sans correspondance dans MC", 

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"
                Lig = Lig + 1
            Else
                Rows(Lig).Delete
            End If
        Wend
    End With
End Sub

Sub Bouton1()
Dim Lig As Long, LigG As Long, DerLigG As Long
Dim C As Variant
    DerLigG = Sheets("MC").Range("G65535").End(xlUp).Row
    With Sheets("synthèse")
        While Cells(Lig, 1) <> ""
            C = .Cells(Lig, 1)
            For LigG = 1 To DerLigG
                If C = Sheets("MC").Cells(LigG, "G") Then
                    If Sheets("MC").Cells(LigG, "AA") = "tf" Then
                        Lig = Lig + 1
                    Else
                        .Rows(Lig).Delete
                    End If
                    Exit For
                End If
            Next LigG
        Wend
    End With
End Sub

Sub Bouton1()
Dim rngBF1 As Range, rngBF2 As Range
dim vLig as long
 
Application.ScreenUpdating = False
 
'définition de la plage sur la feuille synthèse (ici de A1 à la dernière cellule remplie) : 
Set rngBF1 = Sheets("synthèse").Range("A1:" & Sheets( _
             "synthèse").Cells(Rows.Count, 1).End(xlUp).Address)
 
'définition de la plage sur la feuille MC (ici de G1 à la dernière cellule remplie) : 
Set rngBF2 = Sheets("MC").Range("G1:" & Sheets( _
             "MC").Cells(Rows.Count, 7).End(xlUp).Address)
 
For Each cell In rngBF1
    If Not IsError(Application.Match(cell, rngBF2, 0)) Then
        vLig = Application.Match(cell, rngBF2, 0) 'vLig = n° de la ligne trouvée dans la feuille MC
        If Sheets("MC").Range("AA" & vLig) = "TF-Post" Then
            'on ne fait rien
        Else
            Sheets("synthèse").Rows(cell.Row).Delete
        End if
    Else
        Application.ScreenUpdating = True
        cell.Select
        msgbox "Cellule " & cell.Address & " sans correspondance dans MC", vbokonly + vbcritical, "Anomalie"
    End If
Next
 
Application.ScreenUpdating = True
End Sub