Un compteur For Next pour gagner du temps peut être.
Appelé par un Gosub/Return pour ne pas alourdir le code.
Range('A1') = 'toto'
GoSub WFS
Range('A2') = 'toto'
Exit Sub
WFS:
For WaitFewSec = 1 To 200000000
Next
Return
Je sais, c'est pas très joli comme code mais bon.