Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E4:E15,H4:H15"), Target) Is Nothing And Target.Count = 1 Then
If VarType(Target.Value) = vbDouble Then
Application.EnableEvents = False
Target.Formula = "=" & Target.Value & "+'Année 2016'!$E$16"
Application.EnableEvents = True
End If: End If
End Sub