Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$21" Then
If Target = "" Then Exit Sub
If IsError(Evaluate("='" & Target.Value & "'!A1")) Then
MsgBox "La feuille " & Target.Text & " n'existe pas !", , "Information"
Else
Sheets(Target.Value).Select
End If
End If
'****************************************** Masquer/afficher************************
If Target.Address = "$D$18" Then
Application.ScreenUpdating = False
Rows("25:62").Hidden = False
Select Case Target.Value
Case "Démission"
[41:62].EntireRow.Hidden = True
Case "Fin de Contrat à Durée Déterminée", "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Retraite", "Décès"
[25:29, 46:62].EntireRow.Hidden = True
Case "Licenciement Autres", "Licenciement Faute Grave"
[41:46].EntireRow.Hidden = True
End Select
End If
End Sub