Sub réinitialiser()
ActiveSheet.Unprotect "3132"
reponse = MsgBox("Etes-vous sûr de vouloir tout supprimer", vbQuestion + vbYesNo)
If reponse = vbYes Then
Feuil4.[A5:F40,H5:J40,H2,K2,W4:Z4].ClearContents
Feuil5.[G5:G40,I5:L40].ClearContents
Feuil2.[L5:N40].ClearContents
ActiveSheet.Protect "3132"
End If
End Sub