Bonjour à tous !

J'ai une petite Sub qui fonctionne bien, mais qui est malheureusement
très lente pour se terminer. Voici la sub en question :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub display_all()
    Dim i As Long
    Dim max as Long
    i = 0
    max = 50
 
    Do While i < max 
        If Cells(i, 2).EntireRow.Hidden = True Then
            Cells(i, 2).EntireRow.Hidden = False
        End If
        i = i + 1
    Loop
End Sub
Est ce que je l'ai mal codée ? Y a-t-il un moyen plus léger et
plus rapide de faire ?
J'ai initialisé la boucle à 50 tours, mais en réalité il en faudrait
bien plus, mais c'est réellement long !

Merci de votre aide, bonne journée