Sub remplacer()
Dim tablo() As Variant
fin = Range("N" & Rows.Count).End(xlUp).Row 'récupère la dernière ligne de la colonne N
tablo = Range("N1:N" & fin).Value 'on met toutes les valeurs de la colonne N dans un tablo
For i = LBound(tablo) To UBound(tablo) 'pour chaque élément du tablo
If tablo(i, 1) < 5000 Then tablo(i, 1) = 2 'si <5000 alors, on le remplace par 2
Next i
Range("N1").Resize(UBound(tablo)) = tablo ' on recopie le tablo dans la colonne N
End Sub