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...