Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim resultat As String
If ActiveSheet.Name = "$Liste" Then
resultat = InputBox("Confirmer la demande d'accès", "Administrateur")
If resultat <> "Test" Then
Sheets("Global").Activate
MsgBox ("Le mot de passe est incorrect")
End If
End If
End Sub