Private Type TableauV Col1 As Integer Col2 As String Col3 As String End Type Dim Tableau() As TableauV Dim Attend As Boolean Private Sub Form_Load() Timer1.Interval = 0 'Lecture est stockage du fichiers dans le tableau Dim StrTmp As String Dim TabTemp() As String Open "c:\fichier.txt" For Input As #1 Do While Not EOF(1) Line Input #1, StrTmp 'extraction dans le tableau des 3 colonnes TabTemp = Split(StrTmp, " ") ReDim Preserve Tableau(x) Tableau(x).Col1 = TabTemp(0) Tableau(x).Col2 = TabTemp(1) Tableau(x).Col3 = TabTemp(2) x = x + 1 Loop Close #1 End Sub Private Sub Command1_Click() 'Lancement du timer For i = 0 To UBound(Tableau) Timer1.Interval = Tableau(i).Col1 Attend = True Do While Attend = True DoEvents Loop Me.Print "Interval en Ms: " & Tableau(i).Col1 & " " & Tableau(i).Col2 & " " & Tableau(i).Col3 Next i Timer1.Interval = 0 End Sub Private Sub Timer1_Timer() 'Le code a executer du timer ici!!! Attend = False End Sub