Temps éxécution macro

Bonjour le forum

Est t'il possible de réduire le temps d'éxécution d'une macro.

Dans le fichier en exemple,si il y a 400 participants,le temps pour chaque tirage est supérieut à 5Mn

https://www.cjoint.com/c/CIrohbLLQ55

Merci.

Bonjour

Désactives le calcul avant de faire le tirage au sort, penses à le remettre en fin

Exemple

Private Sub CommandButton1_Click()
Range("E8").Value = ""
Application.Calculation = xlCalculationManual
Call tirage(1)
Range("E8").Value = Range("AR2").Value
Application.Calculation = xlCalculationAutomatic
End Sub

Bien reçu

Merci Banzai64

A+