Private Sub CommandButton_Ajouter_Lien_Click()
Dim shtoto As Worksheet
Application.ScreenUpdating = False
Set shtoto = Sheets.Add(After:=Sheets(Sheets.Count))
shtoto.Name = "tempo"
shtoto.Range("a1").Select
Application.Dialogs(596).Show
Me.TextBox_Lien = shtoto.Range("a1")
shtoto.Range("a1") = ""
Application.DisplayAlerts = False
shtoto.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub