Ecrire une macro

Bonjour,

Je ne suis pas experte et j'ai besoin de votre aide.

J'ai une feuille Excel avec plus d'un million de lignes et je voudrais repérer les plages où il y a au moins 4 cellules adjacentes avec une valeur égale à 0.

Les 4 cellules pourraient être colorées pour être repérées.

Quelqu'un peut-il m'aider en me proposant une macro ou une formule ?

Bonjour Fabienne64, le forum,

Merci de joindre un fichier (sans données confidentielles) , quelques lignes suffisent.

Cordialement,

Re,

Un essai...

Sub repere()
 Dim tb, j&
  tb = ActiveSheet.Range("G2:G" & ActiveSheet.Range("G" & Rows.Count).End(xlUp).Row)
   ActiveSheet.Columns("G:G").Interior.ColorIndex = xlNone
   Application.ScreenUpdating = False
     For j = 1 To UBound(tb, 1)
      If j <= UBound(tb, 1) - 3 Then
       If Application.Sum(tb(j, 1), tb(j + 1, 1), tb(j + 2, 1), tb(j + 3, 1)) = 0 Then
        ActiveSheet.Cells(j + 1, 7).Resize(4, 1).Interior.ColorIndex = 6
       End If
      End If
     Next j
End Sub

..mais avec plus d'1 million de lignes, ça risque de ramer....

Ps: une MFC serait certainement plus rapide, mais pas trouvé comment faire...

Cordialement,

Merci je vais essayer de faire qqch avec çà. Bon week end.