macro qui ouvre une boite de dialogue ou notification lorsque je saisi une donnée

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OS As Object 'déclare la variable OS (Onglet Source)
Dim PL As Range 'déclare la variable PL (Plage)
Dim R As Range 'déclare la variable R (Recherche)

Set OS = Sheets("VH-reconv") 'définit l'onglet source OS
Set PL = Range("C4:C56") 'définit la plage PL
'si le changement a leiu ailleurs que dan sla plage Pl, sort de la procédure
If Application.Intersect(Target, PL) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
'définit la recherche R (recherche la valeur entière de la cellule éditée dans la colonne 1 (=A) de l'onglet OS
Set R = OS.Columns(1).Find(Target.Value, , xlValues, xlWhole)
'si il exite au moint une occurrence trouvé, message
If Not R Is Nothing Then MsgBox "véhicule en reconversion"
End Sub

If Not Intersect(Feuil1.Range("A4:A" & Rows.Count), Target) Is Nothing Then

If Not Intersect(Feuil1.Range("C4:C" & Rows.Count), Target) Is Nothing Then

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Feuil1.Range("C4:C" & Rows.Count), Target) Is Nothing Then
  Set num = Feuil5.Columns(1).SpecialCells(xlCellTypeConstants).Find(Target.Value, LookIn:=xlValues)
  If Not num Is Nothing Then MsgBox "véhicule en reconversion"
End If
End Sub