Bonsoir
je vois 2 cas pour ton problème
1 si tu ne travailles pas sur ton fichier faire tourner une macro en permanence.
option explicit
Sub copiettcinqmn()
Dim top, top1
top1 = Timer
Do
top = Timer
Do
Loop Until Timer - top >= 300 ' temps en seconde
Range("b65536").End(xlUp).Offset(1, 0) = Range("a1")
Loop Until Timer - top1 >= 600 'temps de fonctionnement de la macro
End Sub
2 si tu dois travailler sur ton fichier dans le code de la feuille (evenementiel worksheet_SelectionChange)
Option Explicit
Public top
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If top = 0 Then top = Timer
If Timer - top >= 30 Then
top = Timer
Range("b65536").End(xlUp).Offset(1, 0) = Range("a1")
End If
End Sub
Voilà une solution je pense qu'il y en a d'autre
Bonne nuit
@+Vincent