If Est = False Then
reponse = MsgBox("Pas de trace ! " & " Voulez vous créer une fiche pour ce N° ?", vbYesNo)
If reponse = 6 Then
Sheets.Add.Name = TextBox1.Value
Sheets("Originale").Cells.Copy Destination:=ActiveSheet.Range("A1")
ActiveSheet.Range("A16") = TextBox1.Value
ActiveSheet.Visible = False
ActiveSheet.Move after:=Sheets(Sheets.Count)
Sheets("Sommaire").Select
End If