Bonjour Julien,
Si tu souhaite que le nombre devienne 0 à chaque entrée d'un nombre supérieur à 100000, alors teste ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellule As Range
For Each cellule In Range("a1:a100") ' pour toutes les cellules de a1 à a100
If cellule > 100000 Then cellule = 0 ' valeur 0 si supérieur à 100000
Next cellule
End Sub
Bonne journée