Parcourir des lignes et supprimer si condition

Bonjour tt le monde,

je reviens vers vous encore une fois parsq je crois que je perd du temps dans un probléme qui semble simple.
J'ai un fichier excel avec plus de 17000 lignes et je veux parcourir ces derniers pour :
- exécuter des instructions sur les lignes dont la deuxième colonne = "1" ou "2"
- supprimer les lignes dont la deuxième colonne = "SLoc"
pour cela j'ai écris les lignes de code suivantes :

Dim a, b
b = ActiveSheet.UsedRange.Rows.Count

For a = 2 To b
        
        If Cells(a, 2) <> "SLoc" And Cells(a, 2) <> "" Then
            
                  ....
   
        ElseIf Cells(a, 2) = "SLoc" Then 
        
                  Cells(a, 2).EntireRow.Delete
        End If

Next

Mais ça marche pas :/ ça bloque quand la boucle For arrive sur la dernière ligne dont la deuxième colonne = "1" ou "2" :/

Ps : j'ai déja trié ma deuxième colonne, du coup j'ai tout mes lignes à supprimer en bas, donc si j'arrive à récuperer l'indice de la premiére lignes à supprimer, je vais selectionner les lignes à partir de cet indice jusqu'à "b" et puis supprimer la selection, mais j'y arrive pas. c'est parsq je suis débutant en VBA et je sais pas trop manipuler les boucle. pouvez-vous m'aider SVP. Merci d'avance

A+