Pop up automatique

bonjour à tous j'ai mon pop up ci dessous:
Sub PopUp()
'
' PopUp Macro
'
Dim v, v2
v = Worksheets("poids total").Cells(5, 1).Value
v2 = Worksheets("poids-par-produit").Cells(6, 1).Value
If v = v2 Then
BonneValeur = True
Else
BonneValeur = False
End If
While BonneValeur = False
If v <> v2 Then
MsgBox "!! ATTENTION PROBLEME DE TOTALISATION !!", vbInformation
ElseIf v = v2 Then
BonneValeur = True
End If
Application.Wait (Now + TimeValue("0:05:0"))
Wend
'
End Sub

le problème est que lorsque je l'exécute c'est le logiciel Excel qui attend pendant 5min et il m'est impossible de l'utiliser
peut être que cela vient de la dernière écriture :
Application.Wait (Now + TimeValue("0:05:0"))

on peut pas faire en sorte que ce soit le macro qui attend 5 min et pas l'application ?

Merci d'avance à ceux qui essayeront de m'aider :)