Sub EffaceDonnées()
If MsgBox('Continuer', vbOKCancel + vbQuestion) = 1 Then
ActiveSheet.Unprotect
Range('D2:E1000').ClearContents
Range('G1').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox 'Suppression effectuée', vbInformation
End If
End Sub