Re : Se rendre dans une cellule en fonction de sa valeur
colle ce code dans un module et execute le depuis ta feuille en question :
Sub Rech_Val()
Dim Val_Cherchee As Integer
Val_Cherchee = InputBox("Indiquer la valeur à chercher:", "Valeur")
Dim Trouve As Range
Dim PlageDeRecherche As Range
Dim AdresseTrouvee As String
Set PlageDeRecherche = Range("A1:Z1000")
Set Trouve = PlageDeRecherche.Cells.Find(what:=Val_Cherchee, LookAt:=xlWhole)
If Trouve Is Nothing Then
AdresseTrouvee = Val_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
AdresseTrouvee = Trouve.Address
Range(AdresseTrouvee).Select
End If
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub