Comme quoi avec un fichier c'est mieux... Ton code fonctionne si tu lui fais chercher sur la bonne colonne !
Cells(i, 5).Text
'et pas :
Cells(i, 150).Text
Je te conseille aussi de désactiver l'affichage et le calcul automatique en début de macro (et rétablir en fin) :
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Ton code
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic