Merci Wally,
ta réponse me convient tout à fait mais je n'arrive pas à la faire fonctionner.
Tout d'abord, pour la déclaration de la fonction, il faut que j'enlève "As long" à la fin, sinon la compil marche pas, tu peux me confirmer que c'était une erreur de frappe.
De plus, pour l'insérer, je me suis mis dans le module1, et j'ai choisis déclaration dans la liste déroulante. C'est bien là qu'il fallait le mettre?
Pour le reste, je l'ai bien mis dans "This workbook" dans "Private Sub Workbook_Open()" mais à l'exécution, il me sort l'erreur suivante :
Erreur d'exécution '49'
Convention d'appel de DLL incorrecte
OK ANNULER