J'aurais dû tester avant ! H2 fusionnée s'efface bien, mais la fusion a pour effet que lors de l'effacement de H2, Target est définie comme H2:J2 (alors que lorsqu'elle accueille une valeur, elle est définie comme H2), ce qui fait que la condition de la procédure Change étant définie sur l'adresse de Target =$H$2, le critère en M2 n'est plus effacé en cas d'effacement de H2.
Il faut donc remplacer dans la procédure Change :
If Target.Address = "$H$2" Then
par :
If Not Intersect(Target, Me.Range("H2").MergeArea) Is Nothing Then
et l'ordre sera rétabli !
Désolé du contretemps.
Cordialement.