[jmps]

Re Malika,

Pour accélérer la cadence il faut augmenter (enfin diminuer puisqu'il est négatif) le pas sur cette ligne :

For i = Application.Width To 0 Step -3

Tu peux aussi modifier le .Width en .Height si tu veux un volet horizontal.

A l'occasion j'essaierai de faire un truc plus propre avec plus de transitions.

Bon week-end.