Problème dans la création d'une boucle avec timer

Bonjour,

J'ai créé une ébauche de code et j'aimerai votre aide pour le faire marcher.

Alors voilà dans l'Excel link , j'ai 2 données qui change avec le temps.

Mon objectif serait pour le moment de faire en sorte d'extraire de faire apparaître le max et le min que ces données atteindront.

J'ai besoin de garder l'utilisation du Timer étant donné que ce code n'est qu'une partie d'un autre.

Au début, j'avais pensé à utiliser Private Sub Workbook_SheetChange

Mais je ne vois pas comment je pourrais introduire une notion de timer dedans.

Sachant que ce système à vocation à être dupliqué c'est un peu un casse-tête pour moi.

Je me demande si cette partie n'est pas inexacte :

If InStr(Target.Offset(0, -1), "Data") = 1 Then

bas = Target
haut = Target

Excel comprend t'il bien la cellule que je vise ?

Sub boucle()

Dim t As Single, ouv As Single, bas As Single, haut As Single, clot As Single

t = Timer

While Range("A1") = 1

If InStr(Target.Offset(0, -1), "Data") = 1 Then

bas = Target
haut = Target

  Do

    If bas > Target Then

     bas = Target

    End If

    If haut < Target Then

      haut = Target

    End If

   Loop Until Timer - t > 5

  End If

Range("A2") = bas
Range("A3") = haut

  Wend

End Sub