Peut-être qu'il y a un souci sur l'ordinateur en question …
Mais déjà le code est vraiment affreux, en fait généré par l'Enregistreur de macros, pas du tout optimisé côté rapidité !
Ce code prend 7s sur un PC portable de test, ma procédure Demo n'en a besoin que de 3 !
1 2 3 4 5 6 7 8 9 10 11 12
| Sub Demo()
[A1].Value = Time
Application.ScreenUpdating = False
TS = [A7:K20].Value
For N% = 1 To 10000
[A26:K39].Value = TS
Next
Erase TS
[A2].Value = Time
Application.ScreenUpdating = True
End Sub |
Donc si l'application est comme le classeur en pièce jointe …
Partager