Private Sub CommandButton1_Click()
SvgFeuilEnCour = ActiveSheet.Name
Retour:
Reponse = InputBox("Nom de la feuille à insérer !?", "Insertion Feuille")
If Reponse > "" Then
For I = 1 To Sheets.Count
If Sheets(I).Name = Reponse Then
MsgBox "Cette feuille existe déjà !", vbExclamation: GoTo Retour
End If
Next
Sheets.Add After:=Worksheets(Sheets.Count)
ActiveSheet.Name = Reponse
End If
Sheets(SvgFeuilEnCour).Activate
End Sub