Macro pour masquer lignes

Bonjour,

Dans le fichier suivant, sur la feuille "DEVIS" j'ai un bouton AJUSTER qui me permet de masquer les lignes si celle ci sont vides

Or si j'ai ar exemple 5 lignes vides, il ne me masquera que la première

Pouvez-vous m'aider?

Bonjour,

Remplace ton code par celui-ci :

Sub Ajuster()

    Dim I As Integer

    Application.ScreenUpdating = False

    For I = 20 To 58
        Select Case I
            Case 25, 31, 36, 46, 55 'ne rien faire pour ces lignes !

            Case Else 'cache si vide
                Range("A" & I).EntireRow.Hidden = IIf(Range("A" & I).Value = "", -1, 0)
        End Select

    Next I

    Application.ScreenUpdating = True

End Sub

Parfait, sauf que du coup pour le résultat de ma case G60 ca me renvoie une erreur..

Comment puis je corriger ceci

Rectification c'est moi qui avait fait une erreur.

Problème résolu !