Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target <> "" Then
If MsgBox("Etes-vous sûr de vouloir modifier la cellule?", vbYesNo) = vbNo Then
MsgBox "Cellule non modifiée"
Exit Sub
End If
Target = InputBox("Entrez le nouveau contenu de la cellule")
End If
End Sub