Suppression de lignes dans un fichier Excel par routine VBA

Bonjour,

je souhaite supprimer des enregistrement dans un ficher EXCEL avec la routine suivante :

suppression de toutes les lignes correspondant à un bâtiment (BatNom qui correspond à la 1ère colonne) :

' Suppression des lignes actuelles pour ce batiment

    TopFin = "N"
    Ib = 2

    While TopFin = "N"
        If Cells(Ib, 1) = "" Then
            TopFin = "O"
        Else
            If Cells(Ib, 1).Value = BatNom Then
                Cells(Ib).EntireRow.Delete
            Else
                Ib = Ib + 1
            End If
        End If
    Wend

Bizarrement, c'est toujours la ligne précédente qui est supprimée, donc la première ligne supprimée correspond à la dernière ligne du bâtiment précédent et si bien qu'au final il me reste une ligne pour le bâtiment concerné.

Je commence avec l'indice à 2 car la 1ère ligne du fichier est une ligne "titre des colonnes"

Qu'est-ce qui cloche dans mon code ?

Merci pour une réponse

Daniel

Bonjour

Toujours partir de la fin en remontant pour la suppression de lignes

Bonsoir,

Merci pour l'info. Testé et adopté

Cordialement.

Daniel