Bonjour,
Modifier la macro de la manière suivante :
Sub Effacer()
Range("E7,G12,H14,I16,I26,H21,H23,I25,I22,I23,H21,Q5").ClearContents
End Sub
Si tu protèges la feuille il faut aussi déverrouiller les cellules que tu veux que la macro puisse effacer :
Clic droit / Format de cellule / Protection + décocher Verrouiller
A+