Microsoft 365 créer nouvelle feuille avec une adition dans son nom

Sub Select_Ajouter_Feuil()
Dim n, s, i&
   On Error Resume Next: n = CDbl(ActiveSheet.Name): On Error GoTo 0
   If n <> Int(n) Then Exit Sub
   If n < 1 Or n > 98 Then Exit Sub
   n = n + 1: s = Format(n, "00")
   On Error GoTo ERR_new
   Application.Goto Sheets(s).Range("a1")
   Exit Sub
ERR_new:
   For i = Sheets.Count To 1 Step -1
      If Sheets(i).Name Like "##" Then Sheets("Matrice").Copy after:=Sheets(i): ActiveSheet.Name = s: Exit Sub
   Next i
End Sub

Sub Suivant()
Dim Nom$, NouveauNom$
Nom = ActiveSheet.Name                                      ' Récupération nom onglet
If Nom = "Matrice" Then Exit Sub                            ' Si c'est Matrice, on sort
NouveauNom = CStr(1 + CInt(Nom))                            ' Nouveau nom = Numéro onglet +1, en chaine caractères
If FeuilleExiste(NouveauNom) Then                           ' Si cette feuille existe
    Sheets(NouveauNom).Select: Exit Sub                     ' On y va
Else                                                        ' Sinon
    Sheets("Matrice").Copy After:=Worksheets(Sheets.Count)  ' On duplique Matrice à la fin
    ActiveSheet.Name = NouveauNom                           ' On la renomme
    Sheets(NouveauNom).Select                               ' On y va
End If
End Sub
Function FeuilleExiste(Nom As String) As Boolean            ' Répond True si la feuille Nom existe
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function