XL 2016 Macro - Supprimer ligne en fonction du critère de la ligne en dessous

[Marjo2]

Bonjour Forum,

Est-ce que quelqu'un serait m'aider pour une macro svp ? A savoir que le fichier fait 70 000 lignes.
Si en B2, il y a écrit total et que A1=A2 alors supprimer ligne du A1 sinon ne rien faire.

Je reagrde ma colonne B, si il y a écrit Total, je vais regarder que la ligne juste au dessus à la même information en colonne A, si c'est le cas je supprime cette ligne.

Avec un exemple cela sera plus clair à expliquer ma problématique.
Merci Forum

 

[frangy]

Bonjour,

Sub Supprimer_Lignes()
Dim Ligne As Long
    Application.ScreenUpdating = False
    For Ligne = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
        If UCase(Range("B" & Ligne).Value) = "TOTAL" Then
            If Range("A" & Ligne - 1).Value = Range("A" & Ligne).Value Then
                Rows(Ligne - 1).Delete
            End If
        End If
    Next Ligne
    Application.ScreenUpdating = True
End Sub

Cordialement.

 

[pierrejean]

Bonjour Majo2
A tester: Macro supprime

Edit: Salut frangy

 

[Marjo2]

Bonjour messieurs,

Merci à vous deux, les 2 solutions fonctionnent et j'ai compris.