UserForm mobile pour toutes feuilles Excel

Bonsoir membres du forum,
je souhaiterais programmer une UserForm qui sert toutes les feuilles
(selon la feuille active).

Private Sub CmdButtonNouvlleFeuille_Click()
'Worksheets.Add After:=ActiveSheet
InsererNouvelleFeuilleExcel
End SubSub InsererNouvelleFeuilleExcel()

' Macro Insérer une nouvelle feuille Excel
'
'
    Range("B1:U30").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-24
    'Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("B1").Select
    'Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    'ActiveSheet.Paste
End Sub

Voir image

Concernant les codes des commandes Suivant et Précédent ainsi que la listeBox où devraient être affiché les crées du classeur.
Pourriez vous me guider ?
Cordialement.

Une solution trouvée ici https://forum.excel-pratique.com/excel/feuille-suivante-t85004.html

Private Sub ToggleButtonFeuillePrecedente_Click()
Feuille_Precedente
End Sub

Private Sub ToggleButtonFeuilleSuivante_Click()
Feuille_Suivante
End Sub

Sub Feuille_Suivante()
On Error Resume Next
ActiveSheet.Next.Select 'Feuille suivante
End Sub

Sub Feuille_Precedente()
On Error Resume Next
ActiveSheet.Previous.Select ' Feuille précédante
End Sub

Bonjour,

Avec les macros existantes

A+