Private Sub CommandButton6_Click()
'sauvegarde et creation onglet
Dim nom$
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Shapes.Range(Array("Bouton48")).Delete
On Error Resume Next
Do
nom = InputBox("Nom de la feuille :", "Entrez", nom)
ActiveSheet.Name = nom
Loop While ActiveSheet.Name <> nom
ActiveSheet.Shapes.Range(Array("CommandButton6")).Delete
End Sub