Bonjour naubin1, le forum,
j'ai vu que ce sujet est une suite de ton autre sujet « mise en couleur de cellule » ; la macro que tu as mise ici est celle que BrunoM45 avait faite pour toi (avec la correction On Error Resume Next) ; j'ai pas trouvé la cause de ton bug, mais comme Bruno est l'auteur de la macro, il aura peut-être une idée ?
rappel pour Bruno : le bug est peut-être dû à la nouvelle interface SDI d'Excel 2016 ? voir ce lien :
https://msdn.microsoft.com/fr-fr/vba/excel-vba/articles/programming-for-the-single-document-interface-in-excel#comparaison-des-interfaces-sdi-et-mdi-dans-excel-2010-et-excel-2013
2 autres pistes :
1) peut-être que Application.InputBox()
marche différemment sur cette interface SDI ?
2) peut-être que le n° d'erreur renvoyé est différent ? If Err.Number = 0
d'un autre côté, ric a écrit plus haut que le code marche bien avec son Windows 10 + Excel 2016, alors même si tes versions sont à jour, c'est peut-être à cause d'une mise à jour spécifique (en plus ou en moins par rapport aux versions de ric et selon date « demande update »).
en dernier ressort, si vraiment t'arrives pas à faire marcher le code de Bruno, tu peux toujours essayer avec le code VBA que j'avais fait pour toi (même si l'utilisation est différente) : https://forum.excel-pratique.com/viewtopic.php?p=647691#p647691
si ça bugue même avec mon code, vérifie à tout hasard s'il n'y a pas d'utilisatrice blonde dans le secteur !
dhany