Sub Chiffre()
Dim V, Cel As Range, OK As Boolean, Rng As Range
For Each Cel In Intersect(ActiveSheet.Columns("B"), ActiveSheet.UsedRange)
V = Cel.Value
Select Case VarType(V)
Case vbString: OK = V Like "#"
Case vbDouble: OK = Int(V) = V And V >= 0 And V <= 9
Case Else: OK = False: End Select
If OK Then
If Rng Is Nothing Then
Set Rng = Cel
Else: Set Rng = Union(Rng, Cel): End If: End If: Next Cel
If Rng Is Nothing Then Exit Sub
Application.Goto Rng
MsgBox Rng.Address, vbInformation
End Sub