Private Sub Enregistrer_Click()
'Vérifie si le classeur existe déjà
Dim fso As Object, x As Boolean
Dim Nomfeuil As String
Set fso = CreateObject("Scripting.FileSystemObject")
x = fso.FileExists("C:\Test\" & TextBox1.Value & ".xls")
If x = True Then Nomfeuil = TextBox1.Value & " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) 'Crée une feuille avec le nom du produit et la date
Set Tafeuille = Feuil2 'A définir en fonction de tes besoins
Tafeuille.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nomfeuil
initialise
Else 'Crée un nouveau classeur avec le nom du produit
ChDir "C:\Test"
ActiveWorkbook.SaveAs Filename:= _
"C:\Test\" & TextBox1.Value & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.Save
Application.Quit
End Sub