Boucle Timer en VBA

Bonjour à tous, J'ai un projet à faire en vba dans lequel j'aimerais que mon code se répète par exemple toutes les secondes après que j'ai appuyer sur un bouton. J'ai penser mettre mon code dans une boucle à l'aide d'un timer.


voici mon code :

Option Explicit

Private Sub CommandButton1_Click()
Dim ligne As String


ligne = Range("A1").End(xlDown).Row + 1

Cells(ligne, 1).Value = "a"


Select Case True

Case Cells(8, 2) = True 'Cas où Capteur Ligne 1 passe à "Vrai"
Flag1 = True
Feuil2.Cells(ligne, 1) = Now 'ajout de l'heure
Feuil2.Cells(ligne, 2) = Now 'Ajoute la date et l'heure
Feuil2.Cells(ligne, 3) = Feuil1.Cells(14, 3) 'Ajoute le N° de Biscuitligne
Feuil2.Cells(ligne, 4) = 1
Feuil2.Cells(ligne, 5) = 1 'Ajoute 1 dans la colonne "START"
Feuil2.Cells(ligne, 6) = 0 'Ajoute 0 dans la colonne "STOP"


End Select

Select Case True

Case Cells(8, 2) = False And Flag1 = True
Flag1 = False
Feuil2.Cells(ligne, 1) = Now
Feuil2.Cells(ligne, 2) = Now 'Ajoute la date et l'heure
Feuil2.Cells(ligne, 3) = Feuil1.Cells(17, 3)
Feuil2.Cells(ligne, 4) = 4
Feuil2.Cells(ligne, 5) = 0 'Ajoute 0 dans la colonne "START"
Feuil2.Cells(ligne, 6) = 1 'Ajoute 1 dans la colonne "STOP"

End Select

End Sub

Pouvez vous m'aider ? merci
Pierre