XL 2016 probleme select case

[beginner35]

Bonjour,

j'aimerais créer un bouton qui me permette de colorier certaines cases en fonction de critères, (faire fonctionner les boutns "format" et "raz" dans l'onglet 1
j'ai quasiment le code mais j'ai un problème de fonctionnement à cause du select case
quelqu'un saurait il où ai je fait l'erreur ?
cf mon fichier

merci d'avance

 

[Lolote83]

Salut,
Juste un Next Cell oublié

@+ Lolote83

 

[beginner35]

merci!!