Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Quit As String
If Not Intersect(Target, [c1]) Is Nothing Then
Quit = MsgBox("Etes-vous sûr(e) de vouloir Supprimer la fiche " & ActiveCell.Value _
, vbYesNo + vbInformation, "Suppression")
If Quit = vbYes Then
Set C = Sheets("Liste").Cells.Find(What:=ActiveCell)
If Not C Is Nothing Then
ActiveSheet.Unprotect "AQW"
Application.DisplayAlerts = False
C.EntireRow.Delete Shift:=xlUp
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
Sheets("Liste").Activate
ActiveSheet.Protect "AQW", DrawingObjects:=False, Contents:=True, Scenarios:=False
End If
End If
End Sub