Option Explicit
Sub SupprFeuilles()
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In Sheets
With Ws
If WorksheetFunction.CountIf(Ws.Range("a1:a150"), "BLABLA") = 0 Then Ws.Delete
End With
Next
Application.DisplayAlerts = True
End Sub