Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("A2:G10, A20:D40, F15:M16"), Target) Is Nothing Then Exit Sub
On Error Resume Next
Cancel = True
rep = InputBox("Valeur")
If rep <> "" Then Target = Target.Value + CDbl(rep)
End Sub