Bonjour
Une suppression d'une ligne génère un événement de calcul des fichiers ouverts, ce qui augmente le temps d'exécution de ta macro.
Donc 2 possibilités :
- Faire une "union" des cellules, puis on supprime en 1 seule fois l'ensemble des lignes sélectionnées.
Worksheets("Sheet1").Activate
Set bigRange = Application.Union(Range("Range1"), Range("Range2"))
bigRange.Formula = "=RAND()"
- Modifier le mode de calcul en manuel, cela nécessite de connaître le mode au lancement, pour le restaurer à la fin de la macro.
SavModeCalcul = Application.Calculation
Application.Calculation = xlCalculateManual
.......
.......
Application.Calculation = SavModeCalcul
@+Jean-Marie