Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Calculate
If Target.Address = "$A$17" Then
Rows.Hidden = False
Select Case Range("$A$17").Value
Case "COSTUME HOMME/MEN'S SUITS", "COSTUME ENFANT/BOY'S SUITS": Rows("23:24").Hidden = True
Case "VESTE HOMME/MEN'S JACKET", "PANTALON HOMME/MEN'S PANTS", "GILET HOMME/MEN'S VEST", "MANTEAU HOMME/MEN'S OVERCOAT", "PARKA HOMME/MEN'S PARKA": Rows("21:24").Hidden = True
End Select
End If
End Sub