Bonjour a tous,

Je vous sollicite pour voir si il y a une solution pour rendre plus rapide l’exécution d'une commande de masquage de ligne en fonction d'une cellule contenant un Zéro ou pas.
Le code ci dessous fonctionne, mais comme la feuille comporte un peu moins de 400 lignes le code si dessous est un peu lent a s’exécuter.
Existe t il un autre code plus rapide?

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
26
27
28
29
30
31
32
33
34
Sub masque_0()
    Application.Calculation = xlCalculationManual
    Dim i As Integer
 
    If ActiveSheet.Index = 1 Then
 
    For i = 8 To Range("E65536").End(xlUp).Row
        If Cells(i, 7).Value = 0 Then
            Cells(i, 7).EntireRow.Hidden = True
        End If
    Next i
 
    ElseIf ActiveSheet.Index = 6 Then
    For i = 3 To Range("D65536").End(xlUp).Row
        If Cells(i, 5).Value = 0 Then
            Cells(i, 5).EntireRow.Hidden = True
        End If
        Next i
 
    ElseIf ActiveSheet.Index = 6 Then
    For i = 3 To Range("D65536").End(xlUp).Row
        If Cells(i, 4).Value = 0 Then
            Cells(i, 4).EntireRow.Hidden = True
        End If
        Next i
 
    Else
    For i = 5 To Range("D65536").End(xlUp).Row
        If Cells(i, 6).Value = 0 Then
            Cells(i, 6).EntireRow.Hidden = True
        End If
        Next i
 
    End If
Merci d'avance.