Sub remplacer()
Dim cellule As Range
For Each cellule In Range("A1:D20")
If cellule <> "" Then
If cellule > 99 Then
cellule = 100
Else
cellule = 0
End If
End If
Next
End Sub
SergiO à dit:Bonjour Rossi,
Une solution par VBA (Range à adapter à ton cas)
Code:Sub remplacer() Dim cellule As Range For Each cellule In Range("A1:D20") If cellule <> "" Then If cellule > 99 Then cellule = 100 Else cellule = 0 End If End If Next End Sub
@+