Macro effacer cellule si

Bonjour à tous,

Voilà, après quelques recherches, je me tourne vers vous car je ne sais plus trop comment m'y prendre.

J'ai un fichier (avec pas loin de 2000 onglets), avec dans chaque onglet un tableau.

Je souhaiterai une macro qui efface le contenu d'une cellule en fonction d'une autre. Ici, si le résultat de ma formule en B19 est "non", il faudrait que la cellule E19 soit supprimé, et ce dans chaque onglet (sauf le premier nommé MENU), et chaque ligne à partir de la ligne 11 (jusqu'à la fin du tableau?)

J'ai essayé de faire une macro, mais n'y connaissant vraiment rien, ça ne donne pas grand chose...

Voici ma macro :

Sub NONOK()

Dim ws As Worksheet
Sheets("Feuil4").Select

Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets

ws.Activate

If ws.Name <> "MENU" Then
Option Explicit

Dim J As Long

  For J = 11 To Range("B" & Rows.Count).End(xlUp).Row
    If UCase(Range("B" & J)) = "non ok" Then
      Range("E" & J).ClearContents
    End If
  Next J

Next ws

End Sub

En pj un onglet exemple. Merci d'avance à tous ceux qui essaieront de m'aider !

Bonjour,

Essaie comme cela

Option Explicit
Sub NONOK()
Dim Ws As Worksheet
Dim J As Long
    Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.Name <> "MENU" Then
          For J = 11 To Ws.Range("B" & Rows.Count).End(xlUp).Row
            If UCase(Ws.Range("B" & J)) Like "*NON*" Then
               Ws.Range("E" & J).ClearContents
            End If
          Next J
        End If
    Next Ws
End Sub

A+

Parfait, merci beaucoup !