If compt1 = 2 Then Range("B8").Borders(xlEdgeBottom).ColorIndex = xlAutomatic
Range("11:25").EntireRow.Hidden = False 'montre "RECONSTITUTION"
Modif_Tableaux_Reconstitution
Range("25:33").EntireRow.Hidden = True 'occulte "DILUTIONS SERINGUE"
Range("34:43").EntireRow.Hidden = True 'occulte "DILUTIONS FLACON"
Range("44:60").EntireRow.Hidden = True 'occulte "MÉLANGE TOXINES"
ActiveSheet.Shapes("Exergue1").Visible = True
ActiveSheet.Shapes("Exergue2").Visible = IIf([C9] = 0, False, True)
ActiveSheet.Shapes("Exergue3").Visible = False
ActiveSheet.Shapes("Exergue4").Visible = False
ActiveSheet.Shapes("Exergue5").Visible = False