Sub Exemple()
Cells.Clear
[A1:A1600] = "=""REF ""&ROW()"
Quoi = InputBox("Saisir une référence", "Test", "REF 16")
vOU = Application.Match(Quoi, [A1:A1600], 0)
MsgBox "Référence trouvée en ligne: " & Cells(vOU, 1).Row
Application.Goto Cells(vOU, 1), True
End Sub