Bonjour,

je voudrais appliquer la macro ci dessous à tous les onglets selectionnés.
Quand j'essaie de faire tourner la boucle, ca ne marche que sur la premiere feuille (peut etre un probleme de variable ?)

merci pour votre aide


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub HideRows()

Application.ScreenUpdating = False
  
  Dim rngCell As Range, rngToHide As Range, rngToCheck As Range 
  Set rngToCheck = ActiveSheet.Range("E44:E147,E151:E254")

    For Each rngCell In rngToCheck.Cells
        If rngCell.Value = " " Or rngCell.Value = 0 Then
            If rngToHide Is Nothing Then
                Set rngToHide = rngCell
            Else
                Set rngToHide = Union(rngToHide, rngCell)
            End If
        End If
     
    Next rngCell
    rngToCheck.EntireRow.Hidden = False
    If Not rngToHide Is Nothing Then
        rngToHide.EntireRow.Hidden = True
    
    End If
    Application.ScreenUpdating = True
   
End Sub