macro nettoyage cellule selon contenu

BOnjour à tous ,

Dans le fichier ci joint, j'utilise une macro pour effacer le contenu de cellule (colonne B ) selon un critère présent dans la cellule C .

Sub Essai()
Dim i%
For i = 2 To 30000
If Range("c" & i) < 0.5 Then Range("b" & i).ClearContents
Next i

End Sub

elle marche super .... sauf que dans l'extraction de mes données j'ai 45 000 lignes à traiter.

et à partir de 40 000 la macro me renvoie un dépassement de capacité .


j'ai donc adapté la macro comme ci

Sub Essai()
Dim i%
For i = 2 To 30000
If Range("c" & i) < 0.5 Then Range("b" & i).ClearContents
Next i

Dim j%
For j = 30001 To 50000
If Range("c" & j) < 0.5 Then Range("b" & j).ClearContents
Next j



End Sub

mais j'ai toujours le même soucis.


Quelqu’un à une bonne idée ?

Merci du coup de pouce