Sub StartClock()
EtMaintenantQueVaisJeFaire
End Sub
Sub EtMaintenantQueVaisJeFaire()
[A1] = Now
[A1].NumberFormatLocal = "jj/mm/aa"
Application.OnTime Now + DateValue("00:05:00"), "NoTimeToulouse"
End Sub
Private Sub NoTimeToulouse()
[A2] = Now
[A2].NumberFormatLocal = "hh:mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "NoTimeToulouse"
If [C1] = Date And [C2] = Time Then
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
FS.Deletefolder "C:\Documents and Settings\Bureau\TEST"
MsgBox "Macro exécutée"
ElseIf [C1] < Date And [C2] < Time Then
End If
End Sub