Coloration des cellules automatique selon valeur et réinitialisa

Bonjour,
Je vous explique le problème :
Je voudrais que automatiquement lorsque le classeur s'ouvre la macro s'active et permette de :
- Mettre en vert les cellules inférieures à 0
- Mettre en rouge les cellules supérieures à 0
- Laisser les cellules telles quelles si = à 0

J'aimerais de plus avoir un bouton réinitialiser qui permette de remettre les cellules à leur couleur initial.

J'ai pour cela réaliser deux macros :
La première créee dans "ThisWorkbook" pour colorer , elle ne marche pas tout seule mais marche lorsque je remplit les cellules puis vais dans l'éditeur VBA et appuie sur Play
Private Sub Workbook_Open()
With Sheets("Feuil1")
Range("A1:A25").Select
For Each Cell In Selection
If Cell.Value > 0 Then
Cell.Interior.ColorIndex = 3
End If
If Cell.Value < 0 Then
Cell.Interior.ColorIndex = 4
End If
If Cell.Value = 0 Then
Cell.Interior.ColorIndex = xlNone
End If
Next
End With
End Sub


La deuxième pour réinitialiser qui ne marche pas du tout
Option Explicit
Sub reinitialiser()
On Error Resume Next
With Sheets("Feuil1")
.Range("a1:a25").Cell.Interior.ColorIndex = xlNone


End With
On Error GoTo 0
End Sub

Ci-joint le fichier : http://www.cjoint.com/c/FFyjoAf4Ft0

Merci de votre aide



Excel 2010