bonsoir,
tu as oublié un set dans tes instructions de définition de tes plagecouleur
plagecouleur1 = Sheets(TextBox1.Value).Range("D70:D123") 'plage de cellule de 11H00 du matin jusqu'à 19H00 inclus de la machine 1
cela devrait être
Set plagecouleur1 = Sheets(TextBox1.Value).Range("D70:D123") 'plage de cellule de 11H00 du matin jusqu'à 19H00 inclus de la machine 1
je n'ai pas regardé le reste du code.