Sub effacerexerciceBIS()
Dim s As Worksheet, marep&
marep = MsgBox("Avez vous sauvegardé l'exercice?", vbYesNo)
If marep = vbYes Then
For Each s In Worksheets
If s.Name <> "Sommaire" Then
s.Range("A4:I65000").SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
Next s
Else
MsgBox ("Sauvegardez avant")
End If
End Sub