XL 2016 Passer à l'onglet suivant

dim sh as worksheet

for each sh in activeworkbook.worksheets
  .....
next

ReDim mon_array(0)
For k = 0 To 10
If k Mod 2 = 0 Then ' (si k est pair)
   mon_array(UBound(mon_array)) = k
   ReDim Preserve mon_array(UBound(mon_array) + 1)
  
End If
Next

'preuve ----

For k = 0 To UBound(mon_array) - 1
  MsgBox mon_array(k)
Next

Dim sh As Worksheet
nb = Sheets.Count
ReDim mon_array(nb)
a = 0
For Each sh In ActiveWorkbook.Worksheets
    If sh.Visible = True Then
        mon_array(a) = sh.Name
        a = a + 1
    End If
Next
a = a - 1
For i = 0 To Sheets.Count - 1
    If mon_array(i) = ActiveSheet.Name Then
        If i = a Then Sheets(1).Activate Else Sheets(mon_array(i + 1)).Activate
        Exit Sub
    End If
Next i

Dim sh As Worksheet
ReDim mon_array(0)
For Each sh In ActiveWorkbook.Worksheets
    If sh.Visible = True Then
        mon_array(UBound(mon_array)) = sh.Name
        ReDim Preserve mon_array(UBound(mon_array) + 1)
    End If
Next

'juste pour découvrir ce que tu as ainsi mis dans l'array
For k = 0 To UBound(mon_array) - 1
  MsgBox mon_array(k)
Next