VBA boucle trop lente comment la rendre plus rapide

Bonjour a tous,

J'ai un problème de boucle qui bug,
Le but est de supprimer toutes les lignes de la feuil "Symbol" dont les cellules (texte) de la colonne A ne correspondent pas aux cellules de la colonne A de la feuille "SYZ".

Le problème c'est qu'il y'a grosso merdo 7400 lignes dans la feuil "Symbol" a comparer.


Merci d'avance pour votre aide 🙁

Voici le code qui ne marche pas (je vois pas pourquoi)



Sub Essai()

Dim Déb As Integer, Fin As Integer, I As Integer, j As Integer

With Sheets("Syz")
Déb = 2
Fin = .Range("a" & .Rows.Count).End(xlUp).Row
End With
With Sheets("Symbol")
I = 2
Do While I < Fin
For j = Déb To Fin
If .Range("a" & I).Value <> Sheets("Syz").Range("a" & j).Value Then .Rows(I).Delete

Next j
I = I + 1

Loop

End With


End Sub