Automatiser la copie de données actualisées

C'est parfait, un grand merci. Il est temps que je me mette sérieusement à VBA, ça peut faire des merveilles.
Je l'ai calé sur une minute et ajouté l'importation de données, ça marche parfaitement.
Bravo !

Peux tu mettre le problème à Résolu (en haut à gauche de ton premier message)

Bonne fin de journée

Je vais mettre le problème à résolu, je veux juste poser une dernière question.
Je veux suivre 5 valeurs dans le temps. J'ai modifié le code VBA mais j'ai sans doute fait une erreur de débutant.
A t = 1 j'ai 1 ligne
A t = 2 j'ai 5 lignes
A t = 3 j'ai 25 lignes ...

Je n'ai pas fermé quelquechose, c'est certain. Peux-tu me dire quoi ajouter pour résoudre ce problème STP ? Voilà le code VBA :

Public Sub TopChrono()
Dim li As Long
Dim li2 As Long
Dim li3 As Long
Dim li4 As Long
Dim li5 As Long
With Sheets(NF)
li = .Range(co & Rows.Count).End(xlUp).Row + 1
Temps = Now + TimeValue("00:01:00")
Application.OnTime Temps, "TopChrono"
.Range(co & li).Value = .Range(c).Value
li2 = .Range(co2 & Rows.Count).End(xlUp).Row + 1
Temps = Now + TimeValue("00:01:00")
Application.OnTime Temps, "TopChrono"
.Range(co2 & li2).Value = .Range(c2).Value
li3 = .Range(co3 & Rows.Count).End(xlUp).Row + 1
Temps = Now + TimeValue("00:01:00")
Application.OnTime Temps, "TopChrono"
.Range(co3 & li3).Value = .Range(c3).Value
li4 = .Range(co4 & Rows.Count).End(xlUp).Row + 1
Temps = Now + TimeValue("00:01:00")
Application.OnTime Temps, "TopChrono"
.Range(co4 & li4).Value = .Range(c4).Value
li5 = .Range(co5 & Rows.Count).End(xlUp).Row + 1
Temps = Now + TimeValue("00:01:00")
Application.OnTime Temps, "TopChrono"
.Range(co5 & li5).Value = .Range(c5).Value
End With
End Sub

Public Sub StopChrono()
On Error Resume Next
Application.OnTime Temps, "TopChrono", , False
End Sub

J'ai résolu mon problème tout seul en simplifiant le code :

Public Sub TopChrono()
Dim li As Long
Dim li2 As Long
Dim li3 As Long
Dim li4 As Long
Dim li5 As Long
With Sheets(NF)
li = .Range(co & Rows.Count).End(xlUp).Row + 1
li2 = .Range(co2 & Rows.Count).End(xlUp).Row + 1
li3 = .Range(co3 & Rows.Count).End(xlUp).Row + 1
li4 = .Range(co4 & Rows.Count).End(xlUp).Row + 1
li5 = .Range(co5 & Rows.Count).End(xlUp).Row + 1
Temps = Now + TimeValue("00:01:00")
Application.OnTime Temps, "TopChrono"
.Range(co & li).Value = .Range(c).Value
.Range(co2 & li2).Value = .Range(c2).Value
.Range(co3 & li3).Value = .Range(c3).Value
.Range(co4 & li4).Value = .Range(c4).Value
.Range(co5 & li5).Value = .Range(c5).Value
End With
End Sub

Merci encore pour ton aide ccm81. Je marque le sujet comme résolu.

Il n'y a pas de raison de relancer le timer pour chaque report, les 5 copies se feront au top en cours

With Sheets(NF)
li = .Range(co & Rows.Count).End(xlUp).Row + 1
Temps = Now + TimeValue("00:01:00")
Application.OnTime Temps, "TopChrono"
.Range(co & li).Value = .Range(c).Value
li2 = .Range(co2 & Rows.Count).End(xlUp).Row + 1

.Range(co2 & li2).Value = .Range(c2).Value
li3 = .Range(co3 & Rows.Count).End(xlUp).Row + 1

.Range(co3 & li3).Value = .Range(c3).Value
li4 = .Range(co4 & Rows.Count).End(xlUp).Row + 1

.Range(co4 & li4).Value = .Range(c4).Value
li5 = .Range(co5 & Rows.Count).End(xlUp).Row + 1

.Range(co5 & li5).Value = .Range(c5).Value
End With

RQ. et si les lignes de report sont identiques tu peux supprimer li2= ... , li3 = ... etc.

Peut-être que la description de mon problème est insuffisante ? Si tel est le cas, je peux donner des détails !

Je cherche à :
à t=0, copier A1 dans B1
à t=1mn, copier A1 dans B2
à t=2mn, copier A1 dans B3
à t=3mn, copier A1 dans B4
...

Je peux également arriver à mes fins si je réussi à faire :

si(A1<>"0"), copier A1 en B1
si(et(A1<>"0";A1<>B1)), copier A1 en B2
si(et(A1<>"0";A1<>B2)), copier A1 en B3
...

en considérant que ma case A1 est actualisée chaque minute.

Le problème, c'est de faire une copie de valeurs périodique pour faire un historique des valeurs de A1.