Option Explicit Dim NbrMinute As Integer Private Sub Form_Load() NbrMinute = 0 Timer1.Interval = 60000 'un déclenchement de timer par minute End Sub Private Sub Timer1_Timer() NbrMinute = NbrMinute + 1 If NbrMinute = 30 Then NbrMinute = 0 ' suite du programme à lancer toutes les 30 minutes ' etc End If End Sub