XL 2016 Effacement plage identique dans onglets différents

michelf à dit:

Bonjour à tous,
Je voudrais effacer une plage de même dimension dans des onglets différents. Je me suis fait une petite macro pour effacer une plage :
Sub Effacer()
' Effacer Macro
' Touche de raccourci du clavier: Ctrl+e
Range("D7:L41").Select
Selection.ClearContents
End Sub

Cette plage doit être effacée dans une série d'onglets (45) commençant tous par Sem (Sem 1, Sem 2,... Sem 45) Il y a d'autres onglets qui eux ne doivent pas être affectés par la macro. Je n'arrive pas à créer une macro disant "pour chaque onglet commençant par Sem effacer la plage D7:L41 et passer à la suivante..
Je vous mets en attaché un "extrait" du fichier pour plus de compréhension.
Je vous remercie d'avance

Cliquez pour agrandir...

Sub Effacer()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If UCase(Left(Sh.Name, 3)) = "SEM" Then Sh.[D7:L41].ClearContents
    Next
End Sub