réinitilisation d'une macro

Bonjour à tous,

J’ai un problème je souhaite réinitialiser une macro avant sont exécution mais je ne trouve pas la solution. Ma première macro déclenche la deuxième en fonction quand cellule B7=1 et cette deuxième macro s’exécute toute les 10s, quand la valeur de B7 =0 la deuxième macro ne s’exécute plus. Jusqu'à là c’est Ok, mais quand la valeur B7=1 la deuxième macro s’exécute mais je n’est plus le cycle de 10s, d’où la volonté de réinitialiser ma deuxième macro lors de sont exécution. Quelqu’un peut-il m’aider, merci

Macro 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b7").Value = 1 Then
CreaFichierDebit1
End If
End Sub

Macro 2

Sub CreaFichierDebit1()
'
' CreaFichierDebit1 Macro
' Macro enregistrée le 29/10/2008 par lneves
'
Sheets("DonneesAuto").Select
If Range("b7").Value = 1 Then
ChDir "U:\QUALITE\QC\Q-DAS\Q-Das _ Suivi débit en fonderie\TestMacro"
Workbooks.OpenText Filename:="U:\QUALITE\QC\Q-DAS\Q-Das _ Suivi débit en fonderie\TestMacro\Débit1.DFQ", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1))
Windows("DonnéesAutomate_New.xls").Activate
Sheets("DonneesDebit1").Select
Cells.Select
Selection.Copy
Windows("Débit1.DFQ").Activate
Cells.Select
ActiveSheet.Paste
ActiveWindow.LargeScroll Down:=-1
ActiveWorkbook.SaveAs Filename:="U:\QUALITE\QC\Q-DAS\Q-Das _ Suivi débit en fonderie\TestMacro\Répertoire d'export\Débit1" & Format(Now, " yy-mm-dd @ hh\h mm\m ss\s") & ".DFQ" _
, FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
End If
Application.OnTime Now + TimeValue("00:00:10"), "CreaFichierDebit1"
DoEvents
End Sub