Salut,
Tiens mon post n'est pas passé hier soir. Bon je reprends alors, les types énumèrés n'existent pas sous XL97, Supprimes le Enum FadePhase et remplaces par des constantes:
Const FadeIn As Byte=0
Const Normal As Byte=1
Const FadeOut As Byte=2
Const Finish As Byte=3
ENsuite dans la procédure Démo, déclares la variable Phase en Double.
A+++