Exécuter évènement une seule fois

Bonjour à tous,

J'ai du mal à faire aboutir une macro.

Je souhaite que lorsqu'une cellule contenue dans une certaine plage est supérieure à 5, une macro envoyant un mail s’exécute.

Seulement, avec mon code tel qu'il est actuellement, tant que la cellule contient une valeur supérieure à 5, à chaque modification dans la feuille la macro envoi de mail s'exécute.

Comment puis-je permettre d'exécuter ma macro une seule fois ?

Merci beaucoup,

Cloé

Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim plage As Range
Dim Cel As Range
Set plage = Range("D2:D13")

For Each Cel In plage
If Cel.Value > 5 Then

MsgBox "Nombre d'heures maximum : 5"
'Cel.Select
'Selection.ClearContents
Call mailHS

End If
Next
End Sub

Bonjour,

comme je suppose que l'info doit être conservée si fermeture il faut utiliser la colonne d'à-coté pour marquer l'envoi..

eric