Bonjour Kladorrs, le forum
Il y a plusieurs façons simples d'accélérer un code
1-Désactiver l'affichage écran
Application.ScreenUpdating = False
en début de code, désactivera l'affichage écran pour la durée de la procédure
2-Désactiver le calcul automatique
Application.Calculation = xlManual
en début de code, désactivera de façon permanente le calcul automatique
donc ne pas oublier en fin de procédure de le rétablir par
Application.Calculation = xlAutomatic
3-Enlever les sélections inutiles (la sélection étant une opération trés lente)
plutôt que
Workbooks("monclasseur.xls").Activate
Sheets(1).Select
Range("A1").Select
Selection.Value = 1
il vaut mieux faire
Workbooks("monclasseur.xls").Sheets(1).Range("A1").Value = 1
qui donnera le même résultat sans sélection
4-Ne pas utiliser la méthode évaluate
[A1].Value=1
est entre 60 à 50% moins rapide que
Range("A1").Value=1
sur de nombreuses opérations de cellules, cela peut faire une différence notable.
Ces quelques principes (il y en a d'autres mais plus ardus) devraient déja te faire gagner beaucoup de temps.
Cordialement, A+