Test de valeur EXCEL VBA

bonjour,
j'ai un peu de mal a faire un test... voila un bout de mon code:

For Each cel In Selection
snapcel = Range("B5").Value
Range("B3") = cel.Value
newsnapcel = Range("B5").Value
Do While newsnapcel = snapcel.Value And newsnapcel = "Snapping..."
Application.Wait waitTime
'MsgBox ("Wait")
Loop

donc en fait ds B5 il; y a une valeur ki est chargee dynamiquement
je veux en gros, remplir B3, attendre ke tout ai fini de charger, changer B3...
donc en gros, je fait mon test de fin sur la valeur de B5... je prend B5, je change B3 et je reprends B5... je veux comparer B5 a son ancienne valeut et a la valeur "snapping..." si B5 est encore egal a ca, je voudrais faire attendre la macro 10 secondes (le code de waitTime c'est bon)...

en compilant ce que j'ai en haut j'obtiens une erreur "object required" dans la boucle while

merci pour votre aide