Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Je fait un test pour réaliser de longs calculs sans bloquer l'interface.
Mon Code:
Sub ProcessCall(ByVal TopLoc)
Dim Work As New Process
Set cellule = cells("b1)
Work.TopLoc = TopLoc
Randomize
Work.Id = Int(Rnd * 100000)
cellule.Resize(bcl).ClearContents
Call...