Private Sub WorkSheet_Change(ByVal Target As Range)
'
If Range("C" & Target.Row) = "" Or Range("F" & Target.Row) = "" Then Exit Sub
Select Case Range("C" & Target.Row).Value
Case 45
Sheets("PARTSOC").Select: MsgBox ("feuille PARTSOC DEBIT")
Case 46
Sheets("ECACEF").Select: MsgBox ("feuille ECACEF DEBIT")
Case 47
Sheets("LIVDEVDUR").Select: MsgBox ("feuille LIVDEVDUR DEBIT")
Case 48
Sheets("LIVDEVDUR").Select: MsgBox ("feuille FIDELIS DEBIT")
Case 50
Sheets("PENSION").Select: MsgBox ("feuille PENSION")
Case 55
Sheets("LIVDEVDUR").Select: MsgBox ("feuille PART CREDIT")
Case 57
Sheets("ECACEF").Select: MsgBox ("feuille ECACEF CREDIT")
Case 58
Sheets("LIVDEVDUR").Select: MsgBox ("feuille LIVDEVDUR CREDIT")
Case 59
Sheets("LIVDEVDUR").Select: MsgBox ("feuille FIDELIS CREDIT")
End Select
End Sub