Bonjour
pour l’effacement de tes feuilles 1 à 53
si j'ai bien compris tu effaces les cellules E1 à E4 et E7 à E13
une méthode plus courte pour le faire
dis moi si j'ai bien compris
en appelant Raz_Couleur après la boucle tu es sur la feuille "Sommaire" à la fin de l'effacement
Sub RaZ_Jarodness()
Dim i As Integer
For i = 1 To 53
Sheets(i).Select
Range("E1:E4,E7:E13").Select
Selection.ClearContents
Next
Call RaZ_Couleur
End Sub