recherche nombre

Public Sub Julie()
Dim vFin As Integer
Dim vPlage As Range
Dim vCherche As Long

'Recherche le N° de la dernière ligne non vide dans la colonne A
vFin = Range('A65536').End(xlUp).Row + 1

'Demande de la valeur à rechercher dans la liste
vCherche = Application.InputBox('Indiquer la valeur à rechercher')

'Ecrit dans la première ligne vide, la valeur à rechercher
'cela permet de supprimer l'erreur VBA, provoquer par la non présence de cette valeur dans la colonne A.
Range('A' & vFin) = vCherche

'Recherche du N° de la ligne qui contient la valeur à rechercher
'Si le N° correspond au à vFin la valeur n'était pas présente
If WorksheetFunction.Match(vCherche, Range('A1:A' & vFin), 0) = vFin Then MsgBox 'Valeur inconnue', 64

'Suppression de la valeur dans la cellule
Range('A' & vFin).ClearContents

End Sub