bonjour,
Si ce sont des valeurs numériques ceci est absurde :
Case Is = "1", “21”, “41”, “61”
...car elle oblige VBA à des autoconversions String > Numérique
... or les autoconversions demandent mine de rien un peu de temps.
Quelque chose du genre :
Case 1, 21, 41, 61 'devrait faire l'affaire
Mais ça ne résoudra pas tout ton problème de lenteur : en effet comme à chaque fois que tu modifies une cellule cette macro oblige à vérifier les 185338 autres (for each...) et à boucler sur ton select case...
Pas vraiment étonnant que ça prenne un peu de temps !
A+