Déplacement de plusieurs images (objets)

Bonjour,

Je commence à peine a composer des codes. (simple)

Y a t-il une bonne âme pour m'aider a améliorer le code ci-joint.

Surtout, pour simplifier la boucle.

Et,,,, Est-il aussi possible de rendre le déplacement de l'image plus fluide. Même si on modifie la vitesse, le déplacement se fait par à-coups . ( ce sont des portes qui coulissent )

Merci par avance.

Sub Ouv_Ptes()

    For i = 1 To 5       

        ActiveSheet.Shapes("Image10").Select
        Selection.ShapeRange.IncrementLeft 7                       'vers la gauche
        ActiveSheet.Shapes("Image11").Select
        Selection.ShapeRange.IncrementLeft -7                      'vers la droite

        ActiveSheet.Shapes("Image6").Select
        Selection.ShapeRange.IncrementLeft -7
        ActiveSheet.Shapes("Image7").Select
        Selection.ShapeRange.IncrementLeft 7

        ActiveSheet.Shapes("Image14").Select
        Selection.ShapeRange.IncrementLeft -7
        ActiveSheet.Shapes("Image15").Select
        Selection.ShapeRange.IncrementLeft 7

                                   ' Cette suite concernant le déplacement copié sur le site est correcte 

 secondes = 0.01                  
        timer_avant = Timer
        Do While Timer < timer_avant + secondes
        DoEvents
        Loop
     Range("C1").Select
    Next

End Sub

Bonjour

Il existe une balise "Code" qui rend l'affichage plus attractif et rationnel.

C'est fait pour ton message

Cordialement

Bonjour Amadeus,

ton lien est sympa , mais après 1h de recherche en survolent au maximum tes cours.

Tous ces fichiers a disposition c'est super. Pour moi c'est une vrai noyade.

Mon niveau ne me permet pas de nager.

"Il existe une balise "Code"" ??

Merci quand même a toi Amadeus.

Donc j'espère que ça ne te dérange pas que je repose mon problème pour peut-être avoir une une bouée .