Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.adress(0, 0) = "$G$48" Then
ActiveSheet.Unprotect
Sheets("2 - Quotation").Unprotect
If MsgBox("Do you really want to modify the savings ?", vbYesNo, Savings) = vbYes Then
End If
End If
End Sub