Decodage

' se produit lorsque la feuille change
Private Sub Worksheet_Change(ByVal Target As Range)
' si la cellule ayant provoqué le changement est dans la 1ere colonne
' et si une seule cellule est concernée alors
If Target.Column = 1 And Target.Rows.Count = 1 Then
' si la cellule située 7 colonnes a droite de la cellule ayant provoqué .. est vide
' alors la date du jour est inscrite dans cette cellule
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
End If
End Sub