Dim Lg%, i%
For i = 1 To Worksheets.Count
With Worksheets(i)
Select Case Worksheets(i).Name
Case "Programmation annuelle", "Programmation de cycle", "période 1", "période 2", "période 3", "période 4", "période 5", "Base de données"
Case Else
Lg = .Range("e65536").End(xlUp).Row
.Range("e7:e" & Lg).ClearContents
End Select
End With