Dim barre as Variant DoCmd.Hourglass True barre = SysCmd(SYSCMD_INITMETER, "Update is running", 100) 'on plce dans le code a different endroit la ligne suivante avec des valeurs differents 'si on le place dans une boucle avec i que lon incremente on peut ecrire : 'barre = SysCmd(SYSCMD_UPDATEMETER, i) barre = SysCmd(SYSCMD_UPDATEMETER, 10) barre = SysCmd(SYSCMD_REMOVEMETER) DoCmd.Hourglass False