Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Range, Grat As Long, Cib As Range
If Target.Count > 1 Then Exit Sub
Set Lig = Target.EntireRow
If Not Intersect(Target, Range("B:C")) Is Nothing Then
Grat = (Lig.Columns("B").Value + Lig.Columns("C").Value) \ 12
Set Cel = Lig.Columns("G")
ElseIf Not Intersect(Target, Range("D:D")) Is Nothing Then
Grat = Lig.Columns("D").Value \ 10
Set Cel = Lig.Columns("I")
Else: Exit Sub: End If
If Cel.Value <> Grat Then
Application.EnableEvents = False
Cel.Value = Grat
Cel.Offset(, 1).Value = Date
Application.EnableEvents = True
End If
End Sub