choisir un onglet

Sub choix()
MaDate = Date
Numero = Format(MaDate, "ww", vbMonday) - 1
SEMA = Numero
SEM = InputBox("Indiquez le numéro de la semaine recherchée" & Chr(13) & Chr(13) & "Tapez les touches Ctrl et s pour faire apparaitre cette fenêtre de choix n'importe ou dans le classeur" _
& Chr(13) & Chr(13) & "Nous sommes actuellement en Semaine " & Numero, "Microsoft Excel", , vbOKOnly + vbInformation)
If SEM = "" Then Exit Sub
If IsNumeric(SEM) = False Then
MsgBox ("Entrez un chiffre entre 1 et 52")
SEM = InputBox("Indiquez le numéro de la semaine recherchée" & Chr(13) & Chr(13) & "Tapez les touches Ctrl et s pour faire apparaitre cette fenêtre de choix n'importe ou dans le classeur" _
& Chr(13) & Chr(13) & "Nous sommes actuellement en Semaine " & Numero, "Microsoft Excel", , vbOKOnly + vbInformation)
End If
If SEM < 1 Or SEM > 52 Then
MsgBox "Le numéro de semaine doit être compris entre 1 et 52..." _
& Chr(13) & Chr(13) & "Tapez les touches Ctrl et s pour faire réapparaitre la fenêtre de choix", vbCritical
 Exit Sub
    End If
    Application.ScreenUpdating = False
    Worksheets("S" + SEM).Activate
    Range("A8").Select
    
End Sub