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