Bonsoir Bleck, Luki.
Le 'hic' Bleck (Francis si ma mémoire est bonne !), c'est que Luki a écrit ça :
Sub boucle()
Dim MaPlage As Range
Dim C As Range
Set MaPlage = Range('H1:H10')
For Each C In MaPlage
C.Activate
If C.Value < 0 Then C.Value = 0
Next C
End Sub
Et toi, tu as recopié ça dans ton classeur :
Sub boucle()
Dim MaPlage As Range
Dim C As Range
Set MaPlage = Range( H1:H500 ) il manque les guillements
For Each C In MaPlage
C.Activate
If C.Value & a m p ; l t ; 0 Then C.Value = 0
Next C
End Sub
En rectifiant, je pense que ça devrait fonctionner.
Cela dit, si je peux me permettre, la ligne : C.Activate est inutile et l'enlever améliorerait sensiblement la vitesse de traitement.
Cordialement.