Bonjour, ceci est mon premier post sur ce forum et je débute tout juste en VBA

Il y a un tableau Excel de plusieurs milliers de lignes généré manuellement via une base de données.
Dans la 15ème colonne, les cellules sont soit vides, soit contiennent "Annul". Voilà ce que je cherche à faire :

SI elles contiennent "Annul",[par exemple ligne 20] ALORS
incrémenter une variable contenant le nombre d'annulations, qu'on affichera quand la macro aura parcouru tout le document.

Je souhaite aussi supprimer toute la ligne contenant "Annul" ainsi que la ligne du dessous (sous certaines conditions), mais je ne sais pas le faire.

Voilà ce que j'ai fait pour le moment, mais il y a des erreurs :
"Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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 = 0
    nombredannul = 0
 
    While Application.Workbooks(classeur).Worksheets(feuille).Cells(ligne, 1).Value <> ""
        ligne = ligne + 1
        If Application.Workbooks(classeur).Worksheets(feuille).Cells(ligne, 15) = "Annul" Then
            nombredannul = nombredannul + 1
        Else
            nombredannul = nombredannul
        End If
 
    Wend
 
    MsgBox nombredannul
 
 
End Sub

Voilà, si certains d'entre vous pouvaient m'aider ça erait très sympa