Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 34) Then Exit Sub
If IsEmpty(Target) Then
If MsgBox("Etes-vous certain de vouloir supprimer", vbYesNo, vbNo) = vbNo Then
Exit Sub
End If
ActiveSheet.Unprotect
Application.EnableEvents = False
Target.Resize(, 4).ClearContents
Target.Resize(, 5).ClearContents
Target.Resize(, 6).ClearContents
Target.Resize(, 7).ClearContents
Target.Resize(, 8).ClearContents
Target.Resize(, 9).ClearContents
Target.Resize(, 10).ClearContents
Target.Resize(, 11).ClearContents
Application.EnableEvents = True
ActiveSheet.Protect
Else
Exit Sub
End If
End Sub