Dim v As Variant, k As Variant
Do
v = Application.InputBox("Entrez un nombre entier :", "Numéro Adhérent", CStr(v), Type:=2)
If v = False Then Exit Sub
For k = 1 To Len(v)
If Not IsNumeric(Mid(v, k, 1)) Then Exit For
Next
Loop While k <= Len(v) Or v = ""
With ActiveSheet
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
k = Application.Match(Val(v), .[A:A], 0)
If IsError(k) Then .Cells(.Rows.Count, 1).End(xlUp)(2) = v Else .Cells(k, 1).Select
End With