Erreur Macro

Bonsoir,

J'ai une erreur sur ma macro

Sub Ajuster()
        Dim I As Integer

        Application.ScreenUpdating = False

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

                Case Else
                    Range("A" & I).EntireRow.Hidden = IIf(Range("A" & I).Value = "", -1, 0)
                    Range("A25").EntireRow.Hidden = IIf(Range("A26:A30").Value = "", -1, 0)
            End Select

        Next I

        Application.ScreenUpdating = True

End Sub

à la ligne

 Range("A25").EntireRow.Hidden = IIf(Range("A26:A30").Value = "", -1, 0)

Pouvez vous m'aider?

Little UP

Salut Pierrick,

ainsi, peut-être?

          Range("A" & I).EntireRow.Hidden = IIf(Range("A" & I).Value = "", True, False)
                    iOK = 0
                    For x = 26 To 30
                        If Cells(x, 1) <> "" Then iOK = 1
                    Next
                    Range("A25").EntireRow.Hidden = IIf(iOK = 0, True, False)

A+

J'ai réussi à résoudre mon problème d'une manière un peu barbare mais qui fonctionne !

Sur ce, post résolu !