Suppression lignes pour mise à jour

Sub test()
Dim n As Integer
Dim m As Integer
Dim trouve As Boolean
For n = Sheets("Feuil2").Range("A65536").End(xlUp).Row To 2 Step -1
  For m = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
    If Sheets("Feuil2").Range("A" & n) = Sheets("Feuil1").Range("A" & m) Then
      trouve = True
      Exit For
    End If
  Next m
If Not trouve Then Sheets("Feuil2").Rows(n).Delete
trouve = False
Next n
End Sub

Sub test1()
Dim n As Integer
Dim m As Integer
Dim trouve As Boolean
tablo1 = Sheets("Feuil2").Range("A2:A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row)
tablo2 = Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
For n = UBound(tablo1, 1) To LBound(tablo1, 1) Step -1
  For m = LBound(tablo2, 1) To UBound(tablo2, 1)
     If tablo1(n, 1) = tablo2(m, 1) Then
       trouve = True
       Exit For
     End If
  Next m
If Not trouve Then Sheets("Feuil2").Rows(n + 1).Delete
trouve = False
Next n
End Sub