Bonjour,
voila une macro toute bête qui consiste à cacher les lignes dont une cellule particulière est vide :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Compress()
    Dim Ligne As Long
    Dim DernLigne As Long
    DernLigne = WorksheetFunction.CountA(Columns(1)) - 1
    For Ligne = 2 To DernLigne
        If Range("C" & Ligne).Value = "" Then
            Rows(Ligne).Hidden = True
        End If
        Ligne = Ligne + 1
    Next
End Sub
Cette macro fonctionne, mais met un temps infiniment long à s'exécuter.

Y-a-t-il une explication ???