Bonjour à tous!

Ma question est très simple: puis-je utiliser la fonction replace pour remplacer un ensemble de valeurs par une valeur unique?
exemple:
Remplacer toutes les valeurs >1 par 1.

essais de code non fructueux:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Range(Cells(5, 49), Cells(21374, 49)).Replace What:=">1", Replacement:="1"
Range(Cells(5, 49), Cells(21374, 49)).Replace What:>"1", Replacement:="1"
Range(Cells(5, 49), Cells(21374, 49)).Replace What:>1, Replacement:="1"
seul le changement d'une valeur unique vers une valeur unique semble fonctionner:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range(Cells(5, 49), Cells(21374, 49)).Replace What:="2", Replacement:="1"
Y a-t-il une autre formule (mis à part un If dans une boucle qui parcours toutes les cellules) qui fasse ce que je désire?

Merci d'avance de votre aide!

Kedash