macro pour dupliquer et renommer une feuille en vba

bonjour à tous
la macro suivante me permet de duppliquer et de renommer ma feuille nommée "S1" en S2
Sub dupliquer_feuilles1()
Dim i As Integer
Dim ongl As String
ongl = InputBox("Saisir : S ou N ou Nat C", "NOM de la feuille")
Sheets(ongl & "1").Name = ongl & "1"
For i = 1 To 1
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & i + 1
Next i
Sheets(ongl & "1").Select
End Sub
Cependant, j'aimerais pouvoir renommer la même feuille"S1" en "S3" puis en "S4" jusqqu'à S52 mais à chaque fois que j'exécute ma macro.
je précise que je ne dois exécuter la macro qu'une seule fois par semaine
SVP help me!!!!!!!!!!!!
aidez moi!!!!!!!!!!!!!!
c'est urgent pour moi!!!!!!!