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