Bonsoir
Pourquoi tu veux le faire sur des cellules fusionnées ?
Élargis la colonne
Sinon remplaces la ligne correspondante par celle-ci
J'ai fusionné les cellules D3:I3 sur le fichier que tu avais joint et cela fonctionne
If Not Intersect(Range("D3"), Target) Is Nothing Then
Mais à la vue de l'image essayes
If Not Intersect(Range("Q9"), Target) Is Nothing Then