Créer un onglet en auto chaque lundi à l ouverture du fichier

Private Sub Workbook_Open()
Dim NSem As Byte 'déclare la variable NSem (Numéro de Semaine)
Dim OAS As Worksheet 'déclare la variable OAS (Onglet Ancienne Semaine)
Dim ONS As Worksheet 'déclare la variable ONS (Onglet Nouvelle Semaine)

NSem = Application.WorksheetFunction.WeekNum(Date) 'définit le numéro de la semaine NSem
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set ONS = Worksheets("S" & NSem) 'définit l'onglet ONS (génère une erreur si cet onglet n'existe pas)
If Err <> 0 Then 'condition : si une erreur a été générée
    Set OAS = Worksheets("S" & NSem - 1) 'définit l'ancien onglet OAS (la semaine précédente)
    OAS.Copy before:=OAS 'copy la semaine précédente avant elle-même
    Set ONS = ActiveSheet 'définit l'onglet ONS
    ONS.Name = "S" & NSem 'renomme l'onglet ONS
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
ONS.Activate 'active l'onglet ONS
Range("B4").Select 'sélectionne la cellule B4 (ligne à supprimer peut-être)
End Sub