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

Bonjour,

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

Qui fonctionne parfaitement.

Mon problème est que je veux créé des nouvelles feuilles de planning organiser à la semaine "S01", " S02" ... "S52" (nom de feuille) donc je copie/colle la feuille S01 puis renommée en S02

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

Comment faire pour que le nom de ma feuille soit liée à 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

Bonsoir,

si le code est présent sur la feuille et s'il doit être exécuté sur cette même feuille, il suffit de remplacer Sheets("S01") par :

ActiveSheet.

@ bientôt

LouReeD

Super merci

je vais revoir mes classiques de VBA ...

Bonne journée

Cobzy

Bonjour

Ravi que cela vous convienne !

@ bientôt

LouReeD