Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
If IsNumeric(Target) Then Target.Offset(1, 7).Value = Date ' Colonne G
End If
If Not Intersect(Target, Range("B1:E100")) Is Nothing Then
If Target.Value = "FINI" Then Target.Offset(1, 8).Value = Date 'Colonne H
End If
End Sub