Bonjour,

Je vous écris car j'ai besoin d'aide à propos d'un code vba que je tente d'élaborer. Celui-ci est très simple, il vise à parcourir deux colonnes distinctes et supprimer la ligne entière quand une cellule contient la valeur "X".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim i As Integer
Dim LastRow As Long
    LastRow = 8000
    For i = 1 To LastRow
        If Cells(i, 82).Value = "X" Then
            Cells(i, 82).EntireRow.Delete
        ElseIf Cells(i, 97).Value = "X" Then
            Cells(i, 97).EntireRow.Delete
        End If
    Next i
Bizarrement, le code semble fonctionner en deux temps. Je dois l'exécuter deux fois pour qu'il supprime correctement toutes les lignes où un "X" apparaît.

Sauriez-vous m'indiquer l'erreur?

Merci d'avance!