XL 2010 Suppression de lignes en fonction du contenu d'une cellule

[Etrof]

Bonjour à tous,

Je souhaiterai obtenir un programme, qui me permettrait de supprimer une ligne en fonction du contenu d'une précédente cellule d'une colonne particulière pour chaque feuille de mon fichier Excel.
Concrètement dans le fichier dans lequel je travaille, je veux que mon programme supprime la deuxième ligne (ligne l+2), qui suit la ligne (l) dont le contenu de la colonne B est "Memo: Preferred Dividends Related to the Period". Puis, je veux qu'il supprime la deuxième ligne(k+2), qui la ligne (k) dont le contenu de la colonne B est "Memo: Fitch Eligible Capital".

Quelqu'un aurait-il une idée de programme, qui ferait l'affaire ?

Veuillez trouver ci-dessous le lien du fichier sur lequel je travaille :
https://www.fichier-xls.fr/2016/07/06/hungary1/

Merci d'avance
Etrof

 

[Bebere]

bonjour Etrof
bienvenue
code à tester
Sub DeleteRow()
Dim feuille As Worksheet
Dim L As Long, derLigne As Long

For Each feuille In ThisWorkbook.Worksheets
derligne = feuille.Range("B65000").End(xlUp).Row 'à adapter si plus de 65000 lignes
For L = derligne To 1 Step -1
If Trim(feuille.Cells(L, 2).Value) = "Memo: Preferred Dividends Related to the Period" Then
feuille.Rows(L + 2).Delete
End If
If Trim(feuille.Cells(L, 2).Value) = "Liquid Assets / Tot Dep & Bor" Then
feuille.Rows(L + 2).Delete
End If
Next
Next

End Sub