Scriptshell popup non visible sur la feuille active

Bonjour,

J'ai créé un message popup non modal mais qui met ma macro en pause tant que je n'ai pas cliqué sur OK.

Le souci que je rencontre c'est que dés que je sélectionne une cellule sur une feuille Excel mon message popup n'apparait plus (non visible sur la feuille active) (not to front)

Comment puis-je faire pour que ce message reste en toujours visible tant que je n'ai pas cliqué sur OK

Dim x
x = CreateObject("WScript.Shell").popup("This Order Book will self destruct in 15" & _
         "seconds...", 18, "User Notice", vbOKOnly + vbExclamation)
If x = 1 Or x = -1 Then
MsgBox "continuer"
End If

Windows / Chrome 104.0.0.0