Macro pour modifier les cellules inferieures à 5000

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