Microsoft 365 Masquage et démasquage sous plusieurs conditions

    '****************************************** Masquer/afficher************************
    If Target.Address = "$D$18" Then
        Application.ScreenUpdating = False
        Range("25:62,72:73").EntireRow.Hidden = False
        Select Case Target.Value
        Case "Démission"
            [41:62].EntireRow.Hidden = True
        Case "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Décès"
            [25:29, 46:62].EntireRow.Hidden = True
        Case "Licenciement Faute Grave"
            [41:46].EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée"
            [25:29,46:62,72:72].EntireRow.Hidden = True
        Case "Retraite", "Rupture Conventionnelle"
            [25:29, 46:62 ,73:73].EntireRow.Hidden = True
        Case "Licenciement Autres"
            [41:46 ,73:73].EntireRow.Hidden = True
        End Select
    End If