Problême de types

Sub M09_effacezeros()
'désactive la maj de l'écran pour accélérer le traitement
Application.ScreenUpdating = False
'supprime les 0 dans les colonnes
I = 99
For Each Cells In Worksheets("G125").Range("A100:A600")
I = I + 1
If Cells.Value = "0" Then
Rows(I).ClearContents
End If
Next c
End Sub

Bonjour,
J'execute la macro ci dessus et j'ai une erreur sur les types en effet certaines cellules de mon fichier contiennent la valeur :"#N/A"

Si vous avez une idée de ce que je peux faire ?...
Merci d'avance.

Salut Mat et le forum,

Je propose le code suivant qui teste d'abord s'il y a erreur avec la fonction IsError() puis la valeur "0" en alpha ensuite.

Dim CELLULE As Range
For Each CELLULE In Worksheets("G125").Range("A100:A600")
If Not IsError(CELLULE) Then
If CELLULE = "0" Then CELLULE.EntireRow.ClearContents
End If
Next

Je me suis épargnée le i certain me reconnaitrons dans mon économie à la variable ben non puisqu'il y en a une dans mon code nah!! Enfin bref réadapte à ta façon

@ bientôt
Valérie

Merci ,merci merci et encore merci.
Vous êtes tellement efficaces et rapides et dispos et compréhensif etc... lol
Je crois que je risque d'abuser de votre gentillesse.

Quel entousiasme cela me donne du beaume au coeur et le soleil aidant je qualifierai cette journée d'EXCELlente

Valérie