Autres Pb Macro Page Précédente & feuille(s) masquée(s)

For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
    If Sheets(i - 1).Visible = True Then
        Sheets(i - 1).Activate
        Exit Sub
    Else
        ' code si feuille masquée
    End If
End If
Next i

Sub essai()
For i = 1 To Sheets.Count
    If Sheets(i).Name = ActiveSheet.Name Then
        If i = 1 Then Exit Sub
        If Sheets(i - 1).Visible = True Then
            Sheets(i - 1).Activate
            Exit Sub
        Else
            ' code si feuille masquée
        End If
    End If
Next i
End Sub

Sub En_Arrière()
Dim WsV As Worksheet
    Set WsV = ActiveSheet
    For i = 1 To Worksheets.Count
        Select Case True
            Case Sheets(i).Name = ActiveSheet.Name:
                WsV.Activate
                Exit For
            Case Sheets(i).Visible: Set WsV = Sheets(i)
        End Select
    Next
    Set WsV = Nothing
End Sub
Sub En_Avant()
Dim WsV As Worksheet
    Set WsV = ActiveSheet
    For i = Worksheets.Count To 1 Step -1
        Select Case True
            Case Sheets(i).Name = ActiveSheet.Name:
                WsV.Activate
                Exit For
            Case Sheets(i).Visible: Set WsV = Sheets(i)
        End Select
    Next
    Set WsV = Nothing
End Sub