Faire référence à un classeur en particulier en VBA

Sub supprimer_annulations()
Dim Wb As Workbook
Dim Sh As Worksheet

Dim nombredannul As Long
Dim nbLignes As Long

Set Wb = ActiveWorkbook
Set Sh = Wb.ActiveSheet

nbLignes = Sh.Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

For L = nbLignes To 1 Step -1
  If Sh.Cells(L, 15) = "Annul" Then
    nombredannul = nombredannul + 1
    
    '------------------------------------------
    'ici.. tu pourrais mettre la suppression..
    '------------------------------------------
    
  End If
Next

MsgBox nombredannul

End Sub

Sub annuler_lig()
Dim Nbre As Integer, Cptr As Integer, Lig As Integer

Application.ScreenUpdating = False
With ActiveSheet
    Nbre = Application.CountIf(.Columns("o"), "annul")
    For Cptr = 1 To Nbre
        Lig = .Columns("O").Find("annul", .Cells(Cells.Rows.Count, "O")).Row
        Rows(Lig).Delete
    Next
End With
MsgBox Nbre & " lignes annulées"
End Sub

Sub supprimer_annulations()
    
    Dim classeur As String
    Dim feuille As String
    Dim ligne As Integer
    Dim nombredannul As Integer
    
    classeur = ActiveWorkbook.Name
    feuille = ActiveSheet.Name
    ligne = 1
    nombredannul = 0
    
    With Application.Workbooks(classeur).Worksheets(feuille)
        
        While .Cells(ligne, 1).Value <> ""
            ligne = ligne + 1
            
            If .Cells(ligne, 15) = "Annul" And .Cells(ligne, 9) = -.Cells(ligne - 1, 9) Then 'vérif que le montant passé en annulation est l'exact opposé du montant annulé
                .Rows(ligne - 1).Delete 'suppression de la ligne au dessus de celle avec "Annul"
                .Rows(ligne - 1).Delete 'suppression de la ligne "Annul", qui porte alors le même numéro que la ligne qui vient d'être supprimée
                ligne = ligne - 2 'Pour suivre la variation de numéro de ligne entraîné par les suppressions
                nombredannul = nombredannul + 1
                '
                'Si la deuxième condition (après le AND) n'est pas respectée, alors ne pas supprimer les lignes ne respecant pas cette condition
                'et mettre ces lignes en rouge
                '
            End If
            
        Wend
    End With
    
    MsgBox "Le tableau comporte " & nombredannul & " annulation(s)"
    
    
End Sub

Option Explicit
'-------------
Sub annuler_lig()
'déclaration des variables
Dim Nbre As Integer, Cptr As Integer, Lig As Integer

'fige le défilement de l'écran: indispensable, confort des yeux, rapidité _
a écrire dans pratiquement toutes macros
Application.ScreenUpdating = False
'with -end with: on travaille dans le bloc "feuille active" (évite les select chronophages)
With ActiveSheet
'nombre de fois où est inscrit "annul"
    Nbre = Application.CountIf(.Columns("o"), "annul")
    'on ne boucle que sur ces lignes: rapidité, allègement du code
    For Cptr = 1 To Nbre
        'Cells.Rows.Count, "O": dernière ligne de la feuille(1million et des poussières): la ligne suivante repart ainsi à 1
        'on cherche la 1° ligne contenant "annul"
        Lig = .Columns("O").Find(what:="annul", after:=.Cells(Cells.Rows.Count, "O")).Row
        'détruit la ligne
        .Rows(Lig).Delete 'j'avais oublié le point devant 'rows"
        ' la ligne étant détruite, le prochain "next" trouvera la nouvelle 1° ligne avec "Annul"
    Next
End With
MsgBox Nbre & " lignes annulées"
End Sub

'outre la rapidité, ce système avec "find" évite de chercher la dernière ligne de la feuille et de remonter bêtement jusqu'en haut
' "option explicit" oblige à déclarer les variables utilisées et surtout, détecte toute faute de frappe(ca je sais bien faire) _
dans le code, et interdit le déroulement de la macro; très précieux quand on teste un code _
bref! indispensable