IF IMBRIQUES EN VBA (cases)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n
      
   If Not Intersect(Rows(Target.Row), [G17]) Is Nothing Then
      Application.ScreenUpdating = False
      n = CInt([G17])
      Rows("19:32").Hidden = False
      Select Case n
         Case 0 '
            Rows("19:32").Hidden = True
         Case 1 '
             Rows("19:32").Hidden = False
         Case 2 'Aérien
            Rows("19:24").Hidden = True
         Case 3 '
            Rows("19:32").Hidden = False
      End Select
   End If
     
End Sub