'Pour ajouter un lien
Private Sub CommandButton_Ajouter_Lien_Click()
Dim Fichier As Variant
ActiveSheet.Unprotect "toto"
'Fichier = Application.GetOpenFilename()
Fichier = Application.Dialogs(596).Show
If Not Fichier = "Faux" Then
Me.TextBox_Lien.Value = Fichier
End If
ActiveSheet.Protect "toto"
End Sub