Sub VerifIdent()
Dim i As Integer, Nom As String, MdP As String
Const strRepertoire = "c:\mondossier"
Nom = InputBox("Nom?")
MdP = InputBox("MdP?")
For i = 1 To 5
If MdP = Worksheets("ADMIN").Range("B" & i) And Nom = Worksheets("ADMIN").Range("A" & i) Then
Workbooks.Open strRepertoire & "\" & Nom & ".xls"
Exit For
End If
Next i
If i > 5 Then MsgBox ("Nom d'utilisateur ou Mot de passe Incorect"), vbCritical
End Sub