For n = 1 To 34
ActiveSheet.Shapes.Range(Array("Fourches")).Top = ActiveSheet.Shapes.Range(Array("Fourches")).Top + 2.2
ActiveSheet.Shapes.Range(Array("Charge")).Top = ActiveSheet.Shapes.Range(Array("Charge")).Top + 2.2
ActiveSheet.Shapes("Fourches").IncrementLeft 5 / 20
ActiveSheet.Shapes("Charge").IncrementLeft 5 / 20
t = Timer + 0.15: Do Until Timer > t: DoEvents: Loop: Clignoter vitesseClignotement
Next