Dim t$, i As Variant, m As String
m = "Entrez... quelque chose..."
1 t = InputBox(m)
If t = "" Then Exit Sub
With Feuil1 'CodeName
i = Application.Match(t, .Range("A2:A" & .Rows.Count), 0)
End With
If IsError(i) Then m = "Saisie précédente invalide...": GoTo 1