utilisation de sendkeys

Bonjour,

Je ne sais si certains d'entre vous on déjà eu ce problème avec l’utilisation de sendkeys.
Voici qq ligne de code. C'est une macro qui scrute dans une colonne issue d'un filtre (les lignes ne se suivent donc pas)
Mais voila le pb, sendkeys ne fonctionne pas là ou je l'ai placé

Sub essai()

Do While ActiveCell.Value <> 0

Select Case MsgBox("Impression de la fiche", vbYesNo, "voulez-vous continuer ?")
Case vbNo
GoTo fin
End Select

SendKeys "{down}"

Loop

fin:

End Sub

par contre, et c'est plein de saveur () si je place sendkeys en fin de procédure cela fonctionne (mais cela ne me sert à rien). exemple:
Sub essai()

Do While ActiveCell.Value <> 0

Select Case MsgBox("Impression de la fiche", vbYesNo, "voulez-vous continuer ?")
Case vbNo
GoTo fin
End Select


Loop

fin:
SendKeys "{down}"
End Sub

agaçant, n'est ce pas ?!

si l'un ou l'une d'entre vous peu m'aider, je l'en remercie par avance

Cointel