VBA- Feuille renommée liée au code automatiquement

Bonjour,

J'ai ici un VBA qui copie/colle entre 2 document (Mon planning de production d'un jours vers un ficher que mon équipe suit.)

Qui fonctionne parfaitement.

Mon problème est que je veux crée des nouvelle feuille de planning organiser a la semaine "S01" , " S02" .... "S52" (nom de feuille)

donc je copie/colle la feuille S01 puis renomme en S02

Mais mon VBA du S02 copier en même temps que la feuille fonction toujours avec S01

Comment faire pour que le nom de ma feuille soit liée a mon code vba automatiquement ?

Private Sub CommandButton1_Click()

Dim SourceFile As String, ThisFile As String, ShtToCopy As String
Dim Ws As Workbook, wf As Workbook
Dim validation As Byte

validation = MsgBox("Voulez vous définir le planning du Lundi en planning du jour ?", vbYesNo + vbInformation, "Validation")
If validation = vbYes Then
    SourceFile = Dir("Q:\...")
    ThisFile = Dir("Q:\...")

    ' Parti a modif
 ShtToCopy = S01

    Windows(ThisFile).Activate
  Sheets("S01").Select
 Sheets("S01").Range("A5:H100").Select
   'Parti a modif 

    Selection.Copy
    Windows(SourceFile).Activate
    Sheets("Production").Activate
    Sheets("Production").Range("K4").Select

    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End If

End Sub

Merci de votre précieuse aide comme toujours !

Bonne journée et bonne appétit

Sujet en doublon... Fausse manipulation de ma part