cyril tu petes pas un peu plus haut que tes fesses par hasard ??? lol

je te conseille d'utiliser App.Path pour ta base de données (chemin de l'exécutable)
data1.DatabaseName = App.Path & "
om_base.mdb"

c clair que 300 (g pas compté) lignes de code pour faire un simple tri alphabétique c un peu bcp non ??? pkoi faire simple qd on peut faire compliqué ???
heureusement que t'as pas fait un "hello world" sinon on aurait peut etre eu 4 fois plus de code lol

salut,
j'ai justement travaillé sur ce problème récement et j'ai trouvé des exemples ressemblant au tiens.
le problème c'est que tu ne t'appui pas sur l'active directory mais sur le fichier "sam" qui est "l'ancien" système de gestion des utilisteurs sous NT
ca marchera ausi mas c bcp moins optimisé
il faut utiliser le LDAP pour accèder à l'active directory et mettre un code du genre :

Set owinnt = CreateObject("LDAP://OU=Utilisateurs,OU=tata,DC=entreprise_toto,DC=fr")

voila j'espère que ca pourra en aider qq uns @+  :o)

On se moque pas, c'était juste drôle, on sait bien que ca peut arriver a tout le monde ...
mais tu sais, il ne faut pas grand chose pour nous faire marrer c tout lol
alors hop moi je te met 10/10 pour te consoler ;o)

elle doit super bien calculer ta calculette
on aimerait bien t'aider pour d'autres version comme tu le dis si bien mais .... il manquerait pas qq chose par hasard ??? ;o)

très bon boulot ... ;o)