Bonjour,

J'ai voudrait faire une macro qui me supprime une ligne si la cellule de la colonne C et D sont >= 0

Exemple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Colonne C | Colonne D
          |
-334€     |  0€          (on laisse)
0€        |  -100€       (on laisse)
0€        |  0€          (on supprime)
120€      |  0€          (on supprime)
0€        |  40€         (on supprime)

Voici ma macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub TEST()
Application.ScreenUpdating = False
Dim cellule As Variant
For Each cellule In Range("C:D")
If cellule.Offset(0, 0) >= 0 And cellule.Offset(1, 0) >= 0 Then
cellule.EntireRow.ClearContents
End If
Next cellule
Application.ScreenUpdating = True
End Sub
Mais il me mets un message d'erreur

Je ne comprends pas ce qui cloche


Merci par avance