Sub dupliquer_feuilles2()
Dim Nom As String
Dim f As Worksheet
Nom = InputBox("Saisir le numéro de semaine", "NOM de la feuille")
If Nom = "" Then MsgBox "Vous devez entrer un numéro de semaine": Exit Sub
For Each f In ThisWorkbook.Worksheets
If f.Name = "S" & Nom Then
MsgBox "Cette feuille éxiste déja"
Exit Sub
End If
Next f
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "S" & Nom
End Sub