Rapport écrit pendant que la macro tourne

Bonjour, j'ai un besoin particulier. Voilà j'ai une macro, une boucle (code ci-bas) qui change toutes les 5 ou 6 secondes (je choisi le timming) le contenu d'une cellule. Le contenu est un mot (exemple un nom de pays) qui vient d'une liste et inserré dans cette cellule il déclenche la fonction BDSOMME qui renvoie un certain nombre de chiffres. Ceux-ci sont illustrés dans un graphique. Mon besoin = est-ce qu'on pourrait, lorsque j'ai le graphique sous les yeux, cliquer sur un bouton du pavé numérique (0,1, 2, ) pour indiquer que pour ce pays la tendance est à la baisse, à la hausse, ou stagne. Lorsque j'appuyerai sur ce bouton, j'aurai un copier de cellules où se trouve le nom du pays et un coller à un certain endroit de la feuille avec un retour à la ligne suivante pour le prochain pays ?
Merci bcp pour votre aide.

Voici les codes:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim temps As Variant, i As Integer


Sub Compteur()
temps = Now + TimeValue("00:00:05") 'Ici 7 secondes
Application.OnTime temps, "MajCel"

End Sub


Sub Majcel()

i = i + 1
If i = 1525 Then i = 2
Cells(51344, 5) = Sheets("Countries").Cells(i, 7)
Compteur
End Sub