Impossible d'ouvrir un fichier avec une macro

Bonjour,
je crée une macro dans fichier sous exel 2007 >
"
Private Sub Worksheet_SelectionChange(ByVa?l Target As Range)
If Intersect(Target, Range("A1:C1" )) Is Nothing Then: Exit Sub
col = Target.Column
Cells(2, col) = Cells(2, col) + 1
End Sub

Et cela fonctionne très bien. mon probleme est que l'orsque je l'enregistre c'est bon et ensuite apres avoir couper l'ordi,; le lendemain >> le fichier s'ouvre mais la macro ne fonctionne plus.
Que fair
merci de votre aide