Private Sub protect_function()
[COLOR=blue][B]Reponse[/B][/COLOR] = InputBox("Saisir le mot de passe:", toto)
[COLOR=black]If Reponse = toto ThenDim[/COLOR] wb As Workbook
Set wb = Workbooks.Open("C:\Documents and Settings\DuboscL\Desktop\fichier matrice.xls")