Sub EFFACER()
'
' EFFACER Macro
' Macro enregistrée le 14/01/2010 par JEROME
'
Dim cel As Range
Dim tablo, i As Byte
Application.ScreenUpdating = False
tablo = Array("COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9", "COM10") 'nombre de feuilles étudiées limité à 255, sinon => i As Integer
For i = 0 To UBound(tablo)
With Sheets(tablo(i))
.Unprotect
.Range("A10:AI24").ClearContents
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Next i
End Sub