Sub Compteur1_QuandChangement()
Rows.Hidden = False
Select Case Range("K10").Value
Case 1: Rows("27:31").Hidden = True
Case 2: Rows("28:31").Hidden = True
Case 3: Rows("29:31").Hidden = True
Case 4: Rows("30:31").Hidden = True
Case 5: Rows("31:31").Hidden = True
Case 6: Rows("26:31").Hidden = False
End Select
End Sub