Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim p As Range: Set p = Me.[D2:D10]
On Error Resume next [COLOR=Green]' au cas ou ;)[/COLOR]
Target.Value = Round(IIf(Not Intersect(Target, p) Is Nothing, Me.[A1] * 1.196, vbNullString), 2)
End Sub