Sub SupprimerLignesCompte()
Dim critere$, colcrit%, ncol%, tablo, i&, n&, j%
critere = "*compte*" 'avec caractère générique et en minuscules
colcrit = 2 'n° de la colonne à tester, à adapter
With Feuil1 'CodeName de la feuille BDD, à adapter
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .[A1].CurrentRegion 'adapter au besoin
ncol = .Columns.Count
If ncol = 1 Then ncol = 2 'au moins 2 cellules
If ncol < colcrit Then ncol = colcrit
tablo = .Resize(, ncol) 'matrice, plus rapide
For i = 1 To UBound(tablo)
If Not LCase(tablo(i, colcrit)) Like critere Then
n = n + 1
For j = 1 To ncol
tablo(n, j) = tablo(i, j)
Next j
End If
Next i
If n Then .Resize(n, ncol) = tablo
.Offset(n).Resize(.Parent.Rows.Count - n - .Row + 1, ncol).ClearContents 'RAZ en dessous
End With
End With
End Sub