CODE VBA POUR MessageBox

Bonjour tt le monde

J ai eu ce code il fonctionne sur mon dossier mais uniquement si je saisi la valeur "1" ou "2" manuellement sur la cellule "R5" et je click sur entrer
A ce moment la je recois le message mais si la valeur de la cellule "R5" est automatiquement mise en cellule ( EXEMPLE : "R5" = la valeur d une formule ) le message n apparaisse pas.
Si vous avez une idee comment modifier le code de sorte que même si je ne touche pas la cellule "R5" je recois le message si j ai la valeur 1 ou 2 sur la cellule "R5"
et merci



Private Sub Worksheet_Change(ByVal Target As Range)

Dim Num_Concours As Long

If Not Intersect(Sheets("LIVRAISON").Range("R5"), Target) Is Nothing Then

Num_Concours = Sheets("LIVRAISON").Range("R5")

Select Case Num_Concours
Case Is = 1
MsgBox ("ALERTE"), vbInformation

Case Is = 2
MsgBox ("COMMANDEZ"), vbInformation


End Select
End If
End Sub