Sub Compteurs()
Dim X As Byte, Y As Byte
Dim NewHour As Date, NewMinute As Date, NewSecond As Date
Dim WaitTime As Date
For X = 1 To 6
For Y = 1 To 29
NewHour = Hour(Now())
NewMinute = Minute(Now())
NewSecond = Second(Now()) + 1
WaitTime = TimeSerial(NewHour, NewMinute, NewSecond)
If Range("Compteur1").Value > 6 Then Range("Compteur1").Value = 1
If Range("Compteur2").Value > 29 Then Range("Compteur2").Value = 1
Range("Compteur1").Value = X
Range("Compteur2").Value = Y
Application.Wait WaitTime
Next Y
Application.Wait WaitTime
Next X
Application.Wait WaitTime
End Sub