Une macro événementielle qui boucle

Function ControlSaisie(num As Variant) As Variant
If Val(num) > 0 Or num = "" Then
  ControlSaisie = num
Else
  ControlSaisie = "?"
End If
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [ListeChiffres])
If Not r Is Nothing Then
  For Each r In r 'si entrées multiples (copier-coller)
    If r <> ControlSaisie(r) Then
      r = ControlSaisie(r)
      r.Select
    End If
  Next
End If
End Sub

Function ControlSaisie(num As Variant) As Variant
'Contrôle si la saisie est bien une valeur numérique positive
'job75
If Val(Replace(num, ",", ".")) > 0 Or num = "" Then
    ControlSaisie = num
Else
    ControlSaisie = "?"
End If
End Function

Function ControlSaisie(num As Variant) As Variant
ControlSaisie = IIf(IsNumeric(num) And num > 0 Or num = "", num, "?")
End Function