Sub Macro1()
Dim r As Range 'déclare la variable r (Recherche)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
'définit la recherche r (recherche la valeur exacte de F4 dans la colonne C en commençant par C1)
Set r = .Columns(3).Find(.Range("F4").Value, .Range("C1"), xlValues, xlWhole)
End With 'fin de la peise en compte de l'onglet "Feuil1"
If r Is Nothing Then 'condition : si aucunne occurrence n'est trouvée
MsgBox "la valeur cherchée n'existe pas !" 'message
Else 'sinon
r.Select 'sélectionne la première occurrence trouvée
End If 'fin de la condition
End Sub