Je cherche à déterminer si une valeur que j'indique existe dans une plage de données. Si c'est le cas je voudrais qu'elle soit sélectionnée

sub cherche_valeur()
 valtest = InputBox("entrez la valeur à rechercher")
 For Each c In [A1:f12]
     If c Like valtest Then
       c.Select
       exit sub
     End If
   Next
   MsgBox "Pas de " & valtest & " dans la plage testée !"
 end sub