Bonjour le forum
Bonjour Ray97, bonjour Roblochon
Essaies ce code mais tu devras passer soit par la création d'un bouton sur ta feuille ou en utilisant la procédure "Macro" car le "+" n'est, à mon avis, pas exploitable :
Sub InsertCopyFeuille()
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant
MyValue = InputBox("Quelle dénomination souhaitez vous donner à la nouvelle feuille ?", "APPELLATION DE LA FEUILLE", "")
If MyValue = "" Then Exit Sub
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
End Sub
Bonne journée à toutes & à tous