Si la "plage définie" est la même pour la "série d'onglets"...
Code:
Option Explicit
Sub Effacer()
Dim o As Object
For Each o In Worksheets
' noms d'onglets non concernés lister
If o.Name <> "a" And o.Name <> "b" And o.Name <> "c" Then
' plage de cellules préciser
o.Range("a1:d26").ClearContents
End If
Next
End Sub