Sub Effacer_Tous()
vreponse = MsgBox("Attention, vous allez tout effacer (Noms Scores et Tables!)" & Chr(10) & "Vous voulez continuer?", _
vbYesNo, "ATTENTION!")
If vreponse = vbYes Then
Application.ScreenUpdating = False
Sheets("Inscription").Range("C3:D200").ClearContents
Sheets("Données").Range("A4:T200").ClearContents
Application.EnableEvents = True
End If
End Sub