Recherche:

Hmm, la gestion de l'utilisateur dans la fonction IsMember me semble étrange...

Essai avec ceci ?

Function IsMember(sDomainUser, sGroup) 'IsMember("yy.com/user", "Grp1")
Dim...

Essaie de remplacer la fonction IsMember par ceci ?

Function IsMember(sGroup)
Dim sAdsPath,oUser,oGroup,GrpExists
sAdsPath = res.UserDomain &"/"& res.UserName
Set oUser =...