D'après ma vision du Worksheet_SelectionChange de la feuille "Documentations" :
Remplacer le
error goto fin ( trop radical) | par un on error resume next |
1 Range("H7").ClearContents
( c'est une cellule fusionnée ) | par 1 Range("H7").MergeArea.ClearContents |
Sinon les opérations répétitives et identiques peuvent être simplifiées par une seule et unique sub.
Si cela t’intéresse, je te dirai comment ..